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ABSTRACT 

The  theoretical  bases  of  a  land-surface -burst  nuclea  r-cloud -  rise 
model  and  details  of  development  from  the  theoretical  model  of  the 
DELFIC  Cloud  Rise  Module  computer  program  are  presented.  By  use 
of  this  dynamic  cloud  rise  model,  histories  of  the  rise,  growth,  tem¬ 
perature,  and  composition  of  the  cloud  are  computed  throughout 
virtually  the  entire  period  of  its  rise.  Effects  on  the  cloud  development 
of  atmospheric  structure  can  be  accounted  for,  and  the  development  of 
a  time -temperature  history  for  the  cloud  allows  fractionation  of  the 
radioactive  weapon  debris  to  be  approximately  accounted  for  in  the 
Particle  Activity  Module  (DASA- 1 800- V')  calculations. 

Also  described  is  the  DELFIC  Cloud  R ise -  Transport  Interface 
Module  (CRTIM).  The  CRTIM  corrects  particle  positions  for  wind-drift 
during  the  cloud  rise  time  period  and  prepares  the  particles  aloft  inputs 
for  the  DELFIC  Transport  Module  ( DASA -  1  800 -IV). 
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PART  I 

THEORETICAL  BASIS  OK  A 
LAND  SURFACE  BURST 
CLOUD  RISE  MODEL 
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INTRODUCTION 


The  cloud  rise  model  described  here  is  a  modified  version  of  the 
water  surface  burst  cloud  rise  model  devised  by  Huebsch.*  "  *  ’  ^  ^  ^ 

Modifications  to  the  Huebsch  model  have  been  made  to  bring  the  simu¬ 
lations  more  in  line  with  observed  cloud  rise  behavior,  particularly  at 

times  relatively  early  after  the  detonation.  The  studies  that  have  led 

14  15 

to  these  changes  have  been  published  by  Norment  and  Woolf.  '  ’ 

Since  much  of  the  model  remains  unrevised,  we  have  taken  many  ver- 

1  ?.  1  3 

batum  excerpts  from  Huebsch's  work.  *  '* 

Major  changes  in  the  model  are  as  follows: 


1.  A  completely  new  set  of  initial  conditions  is  used. 

2.  The  cloud  momentum  equation  is  revised. 

3.  The  entrainment  equation  is  revised. 

4.  There  are  no  longer  any  discontinuities  in  the 
cloud  behavior  at  the  tropopause. 

5.  The  cloud  no  longer  is  given  a  spherical  shape. 

Initially  the  cloud  is  given  an  oblate  spheroidal 
shape  with  eccentricity  of  0.  75.  At  all  other 
times,  the  shape  of  the  cloud  is  determined  by 
the  cloud  volume  and  the  vertical  cloud  radius 
which  is  taken  to  be  a  function  of  height  of 
burst,  explosion  energy  yield,  and  cloud  center 
altitude . 

6.  The  particle  growth  option  has  been  deleted  from 
the  model. 

7.  Effects  of  wind  shear  on  the  cloud  rise  have  been 
included. 

8.  The  fraction  of  explosion  energy  in  the  cloud  and 
eddy  viscosity  coefficient,  k 2,  both  are  taken  to 
be  yield  dependent.  Formerly  they  were  constant. 

The  reader  is  referred  to  references  1.1  -  1.5  for  details  of  deriva¬ 
tions  that  are  not  covered  here.  Appendices  B.  1  and  C.  1  contain  dis¬ 
cussions  cf  our  modifications  to  the  momentum  and  entrainment  equations. 
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CLOUD  RISE  EQUATIONS 

Cloud  rise  and  expansion  are  described  by  a  set  of  differential  equa¬ 
tions  together  with  certain  defining  equations  and  initial  and  boundary  con¬ 
ditions.  For  certain  cases,  the  equations  are  given  in  pairs,  that  is,  for 
"dry"  and  "wet"  conditions.  For  the  dry  equations  the  cloud  is  unsaturated 
with  respect  to  water;  the  "wet"  equations  are  for  the  saturated  cloud  and 
include  effects  of  water  condensatio  . 


MOMENTUM 

The  momentum  equation  isobtainec’  by  equating  the  rate  of  change  of 
momentum  to  the  sum  of  buoyancy  and  eddy-viscous  (drag)  forces.  After 
correcting  for  asymmetric  entrainme  it  (see  Appendix  B.  1),  we  obtain 


du 

dt 


{[-7-  B'  -  ‘W1  -“>  - 


2k2v 


I  — 

L  H 


e-  (i  -  v.)  + 


m 


dm  “1 
"dt 


>} 


m 


m  4  m! 
1 


(1.  1) 


where  u  is  rate  of  cloud  rise, 
t  is  time 
m  is  cloud  mass 
g  is  acceleration  due  to  gravity 

is  a  dimensionless  power  function  of  yield 

T "  =  Tq(x) 


T  =  T  q(x  ) 
e  e  e 


0'  = 


1  +  x 


1  4-  x  4-  s  4-  w 


,  the  ratio  of  cloud  gas  density  to  total  cloud 
density. 


T  and  T  are  respectively  cloud  and  ambient  temperature 
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q(x)  the  ratio  of  virtual  to  actual  temperature,  may  be  shown  to  equal 

1  +  x/e 
1  +  x 

x  and  x^  are  respectively  cloud  and  ambient  mixing  ratios  (ratios  of 

water-vapor  mass  to  dry  air  mass  in  a  volume  element) 

e  =  18/29,  tne  ratio  of  the  molecular  weight  of  water  vapor  to  that 

of  i  ry  air 

w  is  the  ratio  of  condensed  water  mass  to  dry  air  mass  in  the  cloud 
s  is  the  ratio  of  condensed  dry  mass  to  dry  air  mass  in  the  cloud 

:|c  # 

T  and  Tp  are  thus  the  virtual  temperatures,  and  T  0'  is  the  (cloud) 

virtual  temperature  allowing  fo;  the  contribution  of  condensed  mass 
to  the  total  cloud  density. 

v  is  a  characteristic  velocity  given  by  v  =  max  (|u[,  s/2E)  where  E  is 
turbulent  energy  density  (see  reference  1.  1) 

H  is  the  vertical  radius  of  the  cloud 
c 

m!  is  an  initial  virtual  cloud  mass  equal  to  one  half  the  initial  displaced 

1  mass:  m!  =  m.  P  ' T* /2T* . ,  where  the  subscript  i  indicates  the 
l  x  x  ex’  r 

initial  value  of  each  quantity. 

H  is  a  dimensionless  yield  dependent  quantity  that  is  used  to  define 
the  vertical  cloud  radius  (equation  (1.  13)). 


HEIGHT 

The  height,  z,  of  the  center  of  the  cloud  is  given  by 


dz 

~dt  " 


(1.2) 


WATER  VAPOR 

The  mixing  ratio, x,  does  not  change  by  fallout  of  condensed  matter 
but  only  by  entrainment. 


Dr* 

During  the  "dry"  (unsaturated)  period,  no  water  is  lost  by  condensation. 
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be  the  mass -e ill  ra  l m .  u  nt  rate  and  dml 


l lie  mass  <  i 


trained  in  time  dt.  I  lien,  at  time  i  i  dt,  the  new  mixing  ratio  is 


n'  T  TV 

‘  ,u"[  n.  1 

x  ( t  -t 

dt) 

i '  i 

dint 

1  •  111 

TTT' 

1  t  x" 

« 

from  which, 

by  the  ,i  l  >l 

(>  1  tlu*  r  1  «  n  t  i  i  \  »  t 

dx  1  t  \ 

/  .  1  'I*" 

(X  -  \  )  —  - 7T- 

t*  111  (It 

dt  "  1  .  •• 

(1.  3D) 


Wet 

For  the  saturated  cloud,  x  is  tin  saturation  mixing  ratio.  Then, 
neglecting  possible  lowering  of  vapor  |>r  ssure  by  particulate  matter, 


J_  dx 
x  dt 


(  I  i  x/o  '(I  s/-)  -E-x-  u 

R  T1*  l>  T 


(  1.  iW) 


where  R  is  the  gas  constant  for  dry  air  and  I  is  the  latent  heat  ot  evapo- 
ration  of  vatcr  or  ice  as  appropriate. 

TEMPERATURE 

A  temperature  equation  can  be  obtained  i  mm  either  (a)  heat  balance, 
as  in  Reference  1.1,  or  (b)  enthalpy  balann  ,  since  entrainment  is  a  con¬ 
stant-pressure  process.  I  he  set  mid  method  is  used  here. 

As  before,  dry  and  wet  stages  are  considered  separately.  \lthougli 
condensed  matter  is  present  during  the  dry  s t a ■  ,  only  the  gas  n  ass 

fraction ,( 1  +  x)/(  1  t  x  t  s ),  expands  ad iab.d  ica  1 1 y  as  the  c  loud  rises.  I  In 
specific  heat  of  rut  rained  air  is  take  n  as  that  f  d  ry  air,  c  (lb 
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The  particulate  (condensed)  matter  i:  assumed  to  be  initially  at  some 
average  temperature,  T  <  T^,  and  to  remain  at  this  temperature  until 
T  =  T  Thereafter,  thermal  equilibrium  with  the  cloud  gas  is  assumed. 

rq 

Dry 

Let  H  be  the  total  enthalpy  of  the  cloud.  We  write  enthalpy  as  the  sum 
of  gas  and  condensed-matter  contributions: 


T 


H  =  mg'  c  (T)dT  +  rn(  1  -  0')  / 

P  I 


min(T,  Trq) 


cs(T)dT 


where  c  ( T)  is  the  weighted  mean  of  the  specific  heats  at  constant  pressure 
of  dry  air  and  water  vapor: 


c  '  T)  = 

P 


c  (  T)  +  xc 

_JL2_ _ 

1  +  X 


pw 


(T) 


and  c  (\)  is  the  specific  heat  of  the  condensed  matter.  The  absolute  -  ze  ro 
s 

reference  level  is  artificial  and  drops  out  in  the  derivation.  Enthalpy  is 
altered  by  entrainment,  by  fallout,  by  expansion,  and  by  dissipation  of 
turbulent  energy  at  rate  <£  per  unit  gas  mass: 


dH  -  dHe^  +  Vdp  +  mB'£dt  . 


The  enthalpy  change  due  to  mass  change,  dHex^,  consists  of:  (a)  gain 
due  to  entrainment  of  gas  at  temperature  Tg: 


c  (T)dT  •  din 

P  I  ent 
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and  (b)  loss  due  to  fallout  at  temperature  min(T,  T  ): 

min(T,  T  ) 

rq 

c  (T)«lTp( t )flt 
o 

where  p(t)  is  the  total  mass  fallout  rate1.  This  iate,  during  the  Dry  stage, 
is  negligibly  small  for  water-surface  bursts,  but  is  significant  for  land- 
surface  bursts.  Using  the  g.>  law,  we  have 


B  T* 

V  =  m  (3  '  — ~ —  , 

where  V  is  cloud  volume.  Taking  the  diffe renti il  of  H,  and  equating  it  to 
the  sum  of  the  enthalpy  changes,  gives: 

T 

mfe'c  (T)  +  (1-B')r  (T)k(T,  T  dT  4  d(mp')  (  c  ( T)dT 
L  p  s'  rq  J  pa' 

o 

min(  T ,  T  ) 
p  rq 

cs(T)  dT 

m  i  n  ( T ,  T  ) 

rs  r  CJ 

cs(T)dTp(t)dt 

o 


+  d(m(  1  -  3')) 


o 


c  (T)dTdm 
pa 


ent 


o 


mg'R  T* 

+  - - -  dP  +  m3  '£  dt 
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whore  k(T,  T  )  =  0,  T  >  T 

rq  rq 

=  1;  T  <»  T 

rq 

On  the  left  side  of  this  equation,  is  replaced  by  c^a  in  the  entrainment 
term,  since  the  specific  heat  of  entrained  air  is  taken  as  that  of  dry  air. 


In  the  absence  of  condensation,  the  change  in  gas  mass  is  entirely  due 
to  entrainment: 


d(mf3')  =  dm 

I  ent 

and  that  in  condensed  mass  is  entirely  due  to  fallout: 

d(m(  1  -  p'))  =  _  p(t)dt  . 

Using  also  the  hydrostatic  and  gas  laws,  dividing  by  dt  and  rearranging 
terms,  we  find  for  the  enthalpy  balance 


•V 

/  „T  \ 

' 

dT  _ 

3' 

—  •* 

T 

i  / 

1  vT)dT 

1%  J 

1  dm 

dt 

’  VT) 

— 3T  + 

T 

e 

0 'm  dt 

V. 

ent 

1 

\  e  / 

where  c^(T)  is  the  weighted  mean  specific  heat  of  the  cloud: 

c  (T)  =  p'c  (T1  +  (1  -  P')c  (T)k(T,  T  )  . 
p  P  s  rq 


The  three  terms  in  brackets  on  the  right  side  of  equation  (1.4D)  give  the 
effects  on  temperature  due  to  adiabatic  expansion,  entrainment,  and  dis¬ 
sipation  of  turbulent  energy,  respectively. 

Wet 

Since  the  temperature  of  the  saturated  cloud  is  at  most  373°  K,  specific 
heats  are  taken  as  independent  of  temperature.  When  the  cloud  is  saturated, 
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two  additional  enthalpy  changes  contribute  to  dH,  namely  latent  heat 

absort  ed  by  water  evaporating  to  saturate  entrained  air,  -L(x-x  )dm| 

e  lent 


and  latent  heat  released  bv  ^onH-r ration  of  water. 


-  m  Lflx  — 


1  +  s  +  w 


(  1  -t  x  4  s  i  w) 


Infinitesimal  changes  in  m,  s  and  w  do  not  contribute  to  latent  heat  release. 

It  is  no  longer  true  that  changes  in  gas  mass  and  condensed  mass  are 
entirely  due  to  entrainment  and  fallout  respectively,  as  in  the  Dry  stage, 
(unsaturated  cloud).  But  water  vapor  lost  from  the  gas  mass  through  con¬ 
densation  appears  as  gained  condensed  mass.  Therefore,  the  effect  on 
enthalpy  of  water-vapor  condensation  is  exactly  compensated  by  latent-heat 
release,  so  that  the  derivation  'or  the  dry  case  may  be  modified  to  the  wet 
case  simply  by  the  addition  of  the  two  latent  heat  terms  to  the  enthalpy 
change  dH . 

Adding  the  two  latent  heat  terms  to  dH  ,  i.  e.  to  the  right  side  of  the 

deriving  equation  as  for  the  Dry  stage,  substituting  equation  (1.3W)  for 

dx  * 

and  using  the  definition  of  T  ,  we  find 


dT 

dt 


1  +  L  xe  ( 1  +  s  +  w)(  1  +  x/e) 

—  2  ? 
cRT  { 1  +  x  -f  s  +  w)~ 

P  a 


1  dm 
mp '  dt 


+ 

ent 


Lx  (H  s  l  w) 
R^T  (1  +  x  +  s  +  w) 
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where  is  the  weighted  average  of  specific  heats  allowing  for  condensed 
water  (specific  h'*at,  and  dry  mass. 


sc  k( T,  T  )  +  wc  j 

c  =  e-c  f  13.  - 2^  . 

p  p  lfx+s+w 

By  the  time  the  cloud  has  cooled  to  the  saturation  point,  the  wate**- 
vapor  and  condensed-mass  fractions  of  the  cloud  are  so  small  that  the 
weighted  average  specific  heat,  c  ,  and  the  specific  heat  of  entrained  air, 
c  ,  may  both  be  replaced  by  the  mean  specific  heat  of  the  gas,  c^. 
Dropping  the  factors  involving  s  and  w  in  the  equation  for  -gj".  since  these 
factors  are  approximately  unity,  we  find 


4 


dT 

dt 


P1 
i  t 

c  R  T* 
P  a 


(T  -  T  )  + 
e 


Mx-Xa>\  1  dm 


P 


i  mg 1  dt 


ent 


+  -T  f  u  1  f  TT^T]  ~ 

Te  P  a  /  P 


( 1 . 4 W)  | 


CONDENSED  WATER 

Dry.  Let  w  be  the  ratio  of  liquid  and  solid  water  mass  to  dry  air 
a’ 


mass,  w  =  m^^/m  .  Then, 


w  =  0 

Wet.  The  liquid  and  solid  water  mass  can  change  by: 


(1.  5D) 
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1.  Difference  of  the  mixing  ratio  of  entrained  air 
and  that  of  the  saturated  cloud,  and 

2.  Condensation  of  vapor  already  in  the  cloud,  and 
also  by 

3.  Fallou*  of  condensed  water,  so  that 


dm  j 
dt 


x  -  x 
e 


1  +  x 

e 


dm 

dt 

ent 


m 

a 


dx 

dt 


w 

s  +  w 


pit) 


where  p(t)  is  the  total  rate  of  condensed  mass  fallout.  By  definition  of  w, 
since 


dm  =  -j — ; - 

a  1  +  x 


dm 


ent 


it  follows  that: 


,  dm  dm 

dm  a  ,  w 


ma  “d T  =  *  w  dt  dt 


1 


W  +  X  -  X 

t 

1  +  X 


dm 


dt 


m 


dx  w 


ent 


a  dt  s  +  w 


P(t) 


and  since  m 


m 


1  +  X  +  s  +  w 


,  then 


dw 

dt 


1  1  +x 


3'  1  +  x 


W  +  X  -  X 


I  dm 
m  dt 


ent 


dx 

dt 


l+x+s4w/  w 


m  I  s  +  w 


|P(t) 


(1.  5 W) 
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By  the  time  the  cloud  is  saturated,  s  is  certainly  small,  so  that  practically 


dm  I  _  dni 

dt  Lt° dt 


If  s  =  0,  p  -  0,  then  equation  ( 1 .  5W)  reduces  to  equation  ( 3.  6 W)  of  Reference 

1.  1. 


TURBULENT  KINETIC  ENERGY  DENSITY 

Turbulent  kinetic  energy  p*  r  unit  mass,  E,  is 

1.  generated  from  the  mean  flow  (i.  e.  ,  from  kinetic 

2 

energy  of  rise  u  /2)  by 

a)  eddy-viscous  drag 

b)  mor lemum-conse rvirig  inelastic-collision 
cntr.  inment 

2.  diluted  by  entrainment 

3.  dissipated  to  heat,  so  that 


dE  T  a,  u2v  u2  l  dm 

St  “  2  *  P  H  2  m  dt 

T  c 


ent 


dm 

dt 


ent 


(2E)3/2 

H 

c 


(1.  6) 


where  the  dissipation  rate  is 


k  i&l 

3  H 


3/2 


and  is  a  dimensionless  constant.  Here,  it  is  assumed  that  particles 
falling  out  of  the  cloud  do  not  take  any  turbulent  energy  with  them. 
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MASS 

By  differentiating  the  ideal  gas  law,  ae  can  express  the  rate  of  change 
of  cloud  mass  via  entrainment  in  terms  of  known  cloud  prt  perties,  viz. 


B'm  dV  p'm  dT  ,  B'm  dP 

V  dt  "  T  dt  P  dt  ‘ 

Considering  the  three  terms  on  the  right  side,  we  find  that  the  volume 

term  can  be  evaluated  from  knowledge  of  cloud  growth  behavior  that  h'i 

been  obtained  from  observations  of  nuclear  clouds  (see  Appendix  C.  1),  the 

temperature  term  can  be  obtained  from  equation  (1. 4D)  or  (1. 4W),  and  the 

dP 

pressure  term  can  be  evaluated  using  the  hydrostatic  law  (i.e.  ,  =  -  Peg)« 

Dry 


dm 

dt 


dm 

dt 


ent 


1  - 


P’ 


0'm 


* _ 

T  c 


c  ( T)d  T 
pa 


r 


,  s  ,  e1 

<  V  +  — 

'  T  c 


-  £ 


JLLL 


R  T 
a  e 


(1.  7D) 


where  S  =  4ttR  R  is  the  horizontal  cloud  r  dius,  and  is  the  same  as  in 
c  c 

equation  ( 1 .  13). 


-13- 


F^corvi 


Wet 


am 


dt 


P'm 


ent 


1  - 


P1 
~2 
1  +  .1- 

cRT 
P  a 


L(x  -  x  ) 

T  -  T  + - — 

e  c 


_S_ 

V 


IJ.V  + 


1  + 


P'/T" 

- 

L  x  e 


cRT 
P  a 


BUT 

T*c 

e  p 


1  + 


Lx 

R  T 
a 


£_ 

c 

P 


_£U 


❖ 

R  T 
a  e 


-)•  (1.7W) 


PARTICLE  FALLOUT 


The  rate  of  particle  fallout,  p(t),  is  computed  via  the  expression 


p(t) 


fj(  “S”  )n(t)j  ’ 
j 


(l.B) 


where  is  particle  density,  is  particle  diameter,  n(t)^  is  the  number  of 

particles  in  the  jth  particle  size  class  per  unit  volume  of  cloud,  and  Rc  is 

horizontal  cloud  radius.  The  particle  settling  rate,  f.,  is  computed  by 

1.6  J 

Davies  equations.  *  The  summation  is  taken  over  the  particle  size  classes. 


NET  MASS  CHANGE 

The  net  mass  change  is  the  sum  of  the  mass  change  by  entrainment 
and  the  mass  change  by  fallout. 


dm 

dt 


dt 

ent 


-  p(t)  . 


(1.9) 
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DRY  CONDENSED  MASS  MIXING  RATIO 

In  time,  dt,  a  mass  of  dry  air  -r— ^ dm  is  entrained,  and  a  dry 

1  +  xc  I  ent 

g 

mass  — ; p(t)dt  falls  out.  Then, 

s  +  w  ' 


s(t  +  dt)  = 


1  4  s  4  x  4  w 


m  - 


s  4  w 


p(t)dt 


m 


1  f  s  4  x  4  w 


1  +  x 


dm 


ent 


ds 

dt 


1  -*•  s  4-  x  4  w 
.n 


S  4  W 


4 


1 

1  4  x 

e 


dm 

dt 


ent 


(1.10) 


This  can  be  written  in  the  same  form  as  equation  (1.  5W): 


ds 

dt 


1  1  4  x  1  dm 

0 1  1  4  x  S  m  dt 

e 


ent 


1  4  x  4  s  4  w 
m 


ls  4  w 


)  p(t) 


(1.  10a) 


CHARACTERISTIC  VELOCITY 

The  characteristic  velocity,  v,  is  given  by 


(1.11) 


Use  of  characteristic  velocity  instead  of  simple  rise  velocity  allows  en¬ 
trainment  and  entrainment  effects  to  continue  after  the  upward  motion  of 
the  cloud  has  ceased.*’  * 
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VERTICAL  WIND  SHEAR 

Wind  shear  operates  on  the  cloud  (it  is  assumed)  by  stretching  it,  thus 
increasing  the  cloud  surface  and  increasing  the  total  rate  of  entrainment. 
Instead  of  attempting  to  model  wind-induced  changes  in  cloud  shape,  there¬ 
fore,  it  is  practical  to  model  directly  the  effect  of  shear  on  the  entrainment 

1  3 

rate.  This  treatment  of  wind  shear  was  developed  by  Huebsch. 

It  is  proposed  that  shear  increases  the  entrainment  rate  by  an  amount 
proportional  to  the  product  of  (1)  the  magnitude  of  the  wind- velocity  differ¬ 
ence,  v  ,  between  the  top  and  bottom  of  the  cloud,  and  (2)  the  cloud  verti- 
cal  projected  surface  area,  i.e.,  vertical  cross-section.  The  choice  of 
the  magnitude,  or  absolute  value,  of  shear,  recognizes  that  the  effect  of 
shear  on  entrainment  is  irreversible.  The  vertical,  instead  of  total,  cloud 
area  is  chosen  because  horizontal  wind  motions  can  cause  air  to  flow  only 
through  a  vertical,  not  a  horizontal,  element  of  area. 

The  wind  shear  or  velocity  difference  mentioned  above  is  v  =  V(z  +  H  ) 
I  u  sc 

V(z  -  Hc)|  where  V(z)  is  the  wind  vector  at  height  z  and  H  is  the  vertical 

radius  of  the  cloud,  and  z  is  the  height  of  the  cloud  center. 

To  account  for  effects  of  shear  on  the  cloud  rise  we  make  simple  modi¬ 
fications  to  the  volume  terms  in  equations  (1. 7D)  and  (1. 7W).  Namely, 


V 


M>  V 


V  + 


(1.  12) 


Here  is  a  non-dimensional  constant,  inserted  for  flexibility  in  computa¬ 
tion,  but  normally  taken  as  unity. 


CLOUD  FORM 


Vertical  Radius 

At  all  times  except  the  initial  time,  the  vertical  cloud  radius  is  taken 
to  be 
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H  =  (i  (z  -  z')  (1.13) 

c 

where  p  is  an  empirically  derived  quantity  (equation  (1.  18)),  and  z'  is  a 
constant  for  a  particular  case  that  is  obtained  from  initial  values  of 
and  z  via  equation  ( 1 .  13)  (see  equation  (1.26)). 

Volume 

The  cloud  volume  is  computed  via  the  ideal  gas  law  equation  as 

V  =  R  T  *g'm/P  .  (1.14) 

a 


t 


I 

( 


Horizontal  Radius 

We  assume  an  oblate  spheroidal  shape  for  the  cloud  so  that  the  hori¬ 
zontal  radius  is  obtained  from  the  volume  and  vertical  radius  as 


R 


c 


3  V  /  ( 4rr  H  ^ ) 


(1.15) 


EMPIRICAL  PARAMETERS 

Excluding  those  used  exclusively  to  determine  initial  cioud  properties, 
the  model  uses  a  number  of  dimensionless  parameters  that  are  determined 
either  from  observed  cloud  ris  iata  alone  or  from  comparisons  of  observed 
with  calculated  cloud  rise  data. 

A  parameter,  k^,  the  so-cai.  'd  eddy  viscosi  y  parameter,  is  used  in 

equations  (1.  1)  and  (1.7).  This  parameter  was  originally  taken  to  be  a 

1  7 

constant  by  Heubsch  *  ,  but  as  a  result  of  comparison  of  many  observed  with 
calculated  stabilized  clouds,  (see  Appendix  A.  2),  we  have  determined  that 
k7  should  be  a  function  of  yield.  Our  specification  of  k^  is 


k2  =  0.  075  ,  W  <  0.  55  kT  , 

k2  =  0.  065W'0-  24  ,  W2  0.55kT  . 


(1.  >6) 
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The  constant  k^,  used  in  the  equation  for  dissipation  rate  of  turbulent 

kinetic  energy  density,  equation  (1.6),  is  given  a  value  of  0.  175.  This  is 

1  7 

unchanged  from  the  original  model. 

A  constant,  k, ,  taken  to  be  unity,  is  included  in  the  wind  shear  correc- 

b  13 

tion  to  the  entrainment  equation  (see  equation  (1.  12)). 

1  5 

In  their  study  of  observed  cloud  rise  data,  Norment  and  Woolf  *  found 
that  vertical  cloud  radius  could  be  expressed  as  a  linear  function  of  cloud 
center  altitude  (equation  (1.  13)).  The  dimensionless  yield  dependent  para¬ 
meter  p,  which  also  appears  in  equations  ( 1.  1),  ( 1 . 7D)  and  ( 1 .  7W),  was 
found  to  be 


p  =  0.  092 W°*  130  .  (1.  18) 

Using  the  cloud  rise  model  described  in  the  first  edition  of  this  docu¬ 
ment,  we  executed  cloud  rise  simulations  for  each  of  fifty  test  shots  for 
which  observed  atmosphere  structure  and  stabilized  cloud  data  are  avail¬ 
able.  Simulations  for  each  shot  were  done  over  a  range  of  values  of  F,  the 
explosion  energy  fraction  in  the  cloud  at  our  initial  time,  such  that  a  "best 
fit"  F  value  could  be  assigned  by  least  squares  for  each  shot.  From  these 
"best  fit"  F  values,  a  yield  dependent  general  expression  for  F  was  ob¬ 
tained.  Calculations  with  the  revised  model  indicate  that  the  expression 
does  not  need  to  be  changed.  We  find  that 

F  =  0.  44W0,  014  .  (1.  19) 

INITIAL  CONDITIONS 

A  set  of  initial  cloud  properties  has  been  derived  mostly  from  the  re¬ 
lations  by  Norment  and  Woolf  which  describe  observed  nuclear  cloud  rise 
1  5 

data.  '  The  reader  is  referred  to  reference  1 .  5  to  find  the  origins  of  the 
expressions  presented  here.  Units  are  in  the  mks  system  and  W  is  ex¬ 
plosion  energy  yield  in  kilotons  equivalent  of  TNT. 

CLOUD  CENTER  ALTITUDE 

The  initial  cloud  center  altitude,  z^,  is  given  by 


-18- 


z.  =  h  +  1 08W°*  349  ( 

1 


where  h  is  height  of  burst  above  mean  sea  level  (msl). 


CLOUD  MASS  AND  VOLUME 


Initially,  the  cloud  mass  is 


m.  =  m  .  +  m  .  +  m  „ 
i  a ,  i  .,i  r 

where  m  .  is  initial  air  mass,  m  .  is  initial  water  mass,  and  m  is 
a,  i  w,i  jrg 

initial  soil  mass,  is  supplied  by  the  Initial  Conditions  Module  ’  ;  the 

other  quantities  are  computed  as  follows. 


<P 


,12 


r,  i 


FW|4.  18x10  -  mr  cg(T)dT 


e,  i 


m  .  = 

a, i 


T. 


c  ( T)dT  +  x  c  (T)dT 

pa'  e  Pw 


e  ,i 


T 

e,i 


m 

w,  1 


(1  -  cp ) 


FW  4.18x10 


12 


m 


r,  i 


cs(T)dT 


e .  l 


T 

e,  i 


+  L 


+  x  m 
e  a,i 


( 


1. 20) 


.  21) 


.  22) 


-19- 


ARCON 


where  the  initial  temperatures  for  air  and  soil,  T.  and  T  .  are  specified 

1  f|i 

by  the  Initial  Conditions  Module,  cp  is  the  fraction  of  available  energy  used 
to  heat  air,  and  F  is  the  fraction  of  the  total  explosion  energy  available  to 
heat  the  air,  water,  and  soil  in  the  cloud  (equation  1.  19)).  cp  is  specified  in 
the  input. 

The  initial  cloud  volume  is  obtained  from  the  ideal  gas  law  as 


V. 

l 


(m  .  +  m  .)  R  T.  /P 
a,  i  w,  i  a  i 


( J .  23) 


CLOUD  SHAPE  AND  DIMENSIONS 

Initially,  the  cloud  is  assumed  to  be  an  oblate  spheroid  with  eccen¬ 
tricity,  e,  of  0.  75.  Therefore,  we  compute  R  .  and  H  .  as 

c ,  1  -i  i 


R 

c,  1 


(1.24) 


H2  . 
c ,  i 


2  2 
R  .  (1  -  e  ) 
c,  i 


V 1  -  2  5) 


The  parameter  z'  in  equation  (1.  1  3)  is  evaluated  at  the  initial  time, 
and  kept  constant  thereafter,  from  the  expression 


z 


i 


(1.26) 


-20- 


f 

I 

I 


RISE  VELOCITY  AND  TURBULENT  KINETIC  ENERGY  DENSITY 


Initial  cloud  center  rise  velocity  is  given  by 

u.  =  nktn_1  (1.2  7) 

11 

where 

n  =  0.  409 W°"  071  (1. 28) 

k  =  595W"0"  0527 

1  8 

I  and  t.  is  the  initial  time  supplied  by  the  Initial  Conditions  Module." 

I  The  turbulent  kinetic  energy  is  taken  to  be 

(  E.  =  u2/2  .  (1.29) 

»  i  i 

I 

I 

I 
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SUMMARY  OF  EQUATIONS 
USED  FOR  THE  CLOUD  RISE  SIMULATIONS 

DIFFERENTIAL  EQUATIONS 

Momentum 


❖ 


e 


g/(  1  -  M.)  - 


r  2kzv 

lH - 


T  g i  i  <  .  .  1  dm  |  ,  ii 

—  P'  (  1  -  H-)  +  -  — r—  U  f - - 

*  m  dt  J  J  m  + 


m 


T 


m.' 

i 


(1.  1) 


Height 


dz 

dt 


=  u 


(1.2) 


Water  Vapor 


dj< 

dt 


1  4  x  4  s  1  dm 

— j— -  ( x  -  x  )  — j— 

1  4  x  e  m  dt 


(1.  3D) 


ent 


jL  dx 
x  dt 


(  1  f  x/e)  -  2  4  (1  4  x /  £  ) 


R  T 
a 


R  T 
a  e 


(1.  3W ) 


Temperature 


dT 

dt 


P' 


c  (T) 
P 


gU  4 


c  ( T)dT 
pa 


1  dm 
3’ m  dt 


-e 


ent 


(1.  4D) 
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dT 

'dt 


3’ 

- 71 — 

,  L  xe 
1  +  T 

cRT 

P  a 


(T  - 


T  )  + 
e 


L(x  -  x  ) 
e 


i 

m  3 ' 


dm 

dt 


ent 


t"  g  j 

i  L  +  Lx  \ 

1  - 

- —  —  u  l 

^  KTr) 

c 

1  P 

(1.  4W) 


Condensed  Water 


dw 

dt 


1  ( J_±2L 

T7  i  +x„ 


W  +  X  -  X 


_L 

m 


dm 

dt 


ent 


dx 

dt 


1+x+s+w/  w 


m 


s  +  w 


p(t) 

(1.  5W) 


Turbulent  Kinetic  Energy  Density 

2 


dE 

dt 


■  *2  -£  »■  ir  ♦  " 

e 


1  dm 
2  m  dt 


1  dm 
-  E  - 


ent 


m  dt 


-  k. 


ent 


(ZE  ) 


3/2 


H 


(1.6) 


Mass 


dm 

dt 


ent 


3 1  m 


«— 
T  c 


c  (T)dT 
pa 


r 

1 

IS,  3’ 

T 

gu  -  6 

KU  { 

|v  T% 

V 

T 

e 

R  T,:  I 
a  e 

(1.7D) 
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dm 

dt 
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ent 


i  -  _L_ 
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L(x  -  x  ) 

T~ 

1  4  L  X* 

cRT 

P  a 

X  -  1  +  — - 

e  c 
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s 

sje 

8'/T 
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* 

guT  | 

1  .  Lx  ^ 
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gu  ^ 

V 
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1  +  R  T 

*  / 
R  T  | 

cRT 

P  a 

e  p 

a  e  J 

(1.  7W) 


Particle  Fallout 


p(t)  = 

Net  Mass  Change 


dm  _  dm 
dt  dt 


-  p(t) 


ent 


(1.8) 


(1.9) 


Dry  Condensed  Mass  Mixing  Ratio 


da  _  1  1  4  x  1  dm 

dt  8'  1  4-  x  m  dt 


ent 


1  4  x  4-  s  4  w  ,  s 

- m -  (iTw")p*  * 


(1. 10a) 


Characteristic  Velocity 


I 


=  max  I  u  L  /\[ZE  . 


(1.  ID 
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Vertical  Wind  Shear 

To  account  for  effects  of  shear  on  the  cloud  rise  we  make  simple  modi¬ 
fications  to  the  volume  terms  in  equations  (1.7D)  and  (1.7W).  Namely, 


_S 

V 


v  +  k 


1.  5 


6  R 


CLOUD  FORM 


H  =  U>(z  -  z') 
c 

V  =  R  T*B'm/P  . 
a 

R  =  ^3V/(4ttH  ) 
c  c 


(1.  12) 


(1.  13) 

(1.  14) 


(1.  15) 
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APPENDIX  A.  1 
LIST  OF  SYMBOLS 

A  NOTE  ON  NOTATION 

This  report  uses  hydrodynamics,  thermodynamics  and  meteorology. 
These  fields  use  the  same  symbols  for  different  quantities;  consequently, 
any  notation  must  violate  some  usage.  For  example,  in  meteorology  x 
and  w  are  used  for  ratios  of  vapor-and  liquid-water  mass  to  dry  air  mass, 
respectively.  But  in  hydrodynamics  the  velocity  components  u,  v,  w 
correspond  to  the  coordinates  x,  y,  z.  Since  z  is  the  usual  symbol  for  the 
vertical  cooidinate,  as  in  dP  =  -  f  e  g  dz,  inconsistency  cannot  be  avoided. 

SYMBOLS 

0^  specific  heat  of  gas  at  constant  pressure 

cg  specific  heat  of  dry  condensed  matter 

Dj  fallout  particle  diameter  in  the  jth  particle  size  class 

E  turbulent  kinetic  energy  per  unit  mass 

e  eccentricity  of  ellipse 

f.  still-air  settling  rate  of  particles  in  the  jth  particle 

size  class 

F  fraction  of  explosion  energy,  W,  contained  in  fireball 

at  start  of  rise  (equation  (1.  19)) 

g  acceleration  of  gravity 

H  enthalpy 

H  vertical  radius  of  the  nuclear  cloud 

c 
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m 
m ' 
m 


r 

n(t). 


P 

P(t) 

q(x' 


R 

a 

R 

c 

s 

T 

T* 


T 

T 


r 

rq 


t 

u 

V 

v 

W 

w 


dimensionless  empirical  parameter  (in  eddy- viscosity) 
(equation  ( 1 .  16)) 

dimensionless  empirical  constant  (in  dissipation  rate) 
latent  heat  of  vaporization  of  water  or  ice 
mass  of  cloud 
virtual  mass 

initial  mass  of  refractory  matter 

number  of  particles  per  unit  cloud  volume  in  the  jth 
particle  size  class 

pressure 

rate  of  soil  fallout 

1  +  x/c 
1  +  x 

gas  constant  of  air,  i.  e.  ,  universal  gas  constant 
divided  by  mean  molecular  weight  of  dry  air 

horizontal  radius  of  the  nuclear  cloud 

dry  condensed  mass  in  cloud  per  unit  dry  air  mass 

temperature 

Tq(x),  i.e.  ,  virtual  temperature 

condensation  temperature  of  refractory  matter 

initial  mean  temperature  of  condensed  matter  in  cloud 
(applicable  to  land-surface-bursts) 

time 

vertical  velocity  of  cloud 
volume  of  cloud 

characteristic  velocity,  v  =  max  (  |  u  |  ,  V  2eT  ) 
total  explosion  energy  (kilotons) 

liquid  and  solid  water  mass  per  unit  dry  air  mass 


-28- 


ARCON 


mixing  ratio  (water  vapor  mass  per  unit  dry  air  mass) 
vertical  coordinate 


x 

z 

3' 

t 

e 

M. 


o 

e 


P 

«P 


P 


ratio  of  gas  density  to  total  density  of  cloud  = 


1+w 

1  +X+  s  +  w 


energy  dissipation  rate  per  unit  mass 

ratio  of  molecular  weights  of  water  and  air  18/29 

empirical  parameter  used  to  determine  vertical  cloud 
radius  (equation  1.  18)) 

ambient  air  density 


fallout  particle  density 

fraction  of  available  fireball  energy  used  to  heat  air 


Subsc  ripts 
a 

e 

ent 

ext 

i 

j 

r 

rq 

rs 

w 

wv 

wjZ 


air  (dry  air) 

ambient  (environment)  conditions 
entrainment 
cxte  rnal 
t  tial  value 

.specifies  a  particle  size  class 
I'  fractory  matter 

e  *il  rium  temperature  of  refractory  matter 
dry  m 

water  or  water  vapor 
water  vapor 

liquid  and  solid  water  (i.e.  ,  water  and  ice) 
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APPENDIX  B.  1 
THE  MOMENTUM  EQUATION 


In  the  DELFIC  cloud  rise  model,  the  nuclear  cloud  is  treated  as  a 
buoyant,  entraining,  hot  bubble  of  air  that  is  laden  with  a  certain  quantity 
of  soil  particles.  To  obtain  the  equation  of  motion  of  the  cloud,  in  terms 
of  rate  of  rise  of  its  center,  we  must  set  up  a  momentum  balance  equation 
and  solve  this  for  the  cloud  center  acceleration. 

According  to  potential  flow  theory,  a  body  accelerating  through  a 

B  1  1 

fluid  causes  a  net  displacement  in  position  of  a  mass  m'  of  the  fluid 

(For  a  sphere,  m'  =  *f-  P  V,  )  This  fluid  displacement  effectively  increases 

the  momentum  of  the  body,  so  that  in  computing  its  momentum,  the  mass 

m',  called  the  virtual  mass,  must  be  added  to  the  mass  of  the  body.  In 

the  DELFIC  cloud  rise  model,  rn'  is  given  a  constant  value  equal  to  P  .  V./2. 

e,i  1 

The  rate  of  momentum  change  of  the  cloud  is  equal  to  the  buoyant 
force  on  the  bubble  minus  the  drag  force,  viz. 

H  2k?  P 

^-(mu  +  m'u)  =  V(Pe-  P)g  -  - vum  .  (B.  1.  1) 

c 

Now,  if  we  perform  the  differentiation  indicated  on  the  left  side,  divide 
both  sides  by  m,  and  note  that 


P 

_  e 
"p 


e* 


we  obtain  Huebsch's  original  expression 


B .  1.2 


clu 

dt 


m 


m 

m+m'. 

i 


(B.  1.2) 
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In  deriving  equations  (B.  1.  1)  and  (B.  1.2)  certain  assumptions  are  made 
implicitly  that  we  now  n^ed  to  recognize.  In  these  equations  we  assume  that 
we  are  following  the  motion  of  the  center  of  gravity  of  the  cloud.  We  also 
assume  that  growth  of  the  cloud  by  entrainment  of  ambient  air  is  symmetric 
about  the  cloud  center.  Actually,  since  we  have  no  definite  knowledge  of  the 
legation  of  the  center  of  gravity  of  the  cloud,  we  chose  to  consider  the  geo¬ 
metric  center  as  being  equivalent  to  the  center  of  gravity.  This  in  itself  will 
inevitaoly  lead  to  some  prediction  error,  but  in  any  case,  the  assumption  of 

symmetric  entrainment  need  not  be  made  since  this  can  easily  be  corrected 

,  B.1.3 

for. 


Entrainment  asymmetry  arises  because  most  if  not  all  entrainment  must 
occur  above  the  level  of  the  cloud  center.  If  this  were  not  true,  it  would 
mean  that  ambient  air  entrained  below  would  need  to  chase,  and  catch  up  with, 
the  rising  cloud.  Thus  we  assume  entrainment  occurs  via  inelastic  collision 
with, and  absorption  of, ambient  air. 


If  we  consider  the  growth  of  a  nuclear  cloud  over  a  short  time  interval  At, 
and  as  jume  all  the  entrainment  occurs  in  the  upper  half  of  the  cloud,  we  find 
that  the  cloud  center  height  will  increase  because  of  the  asymmetric  entrain¬ 
ment  alone.  In  Figure  B.  1.  1  the  smaller  ellipse  represents  a  vertical  cross 
section  of  a  cloud  at  time  t  and  the  larger  ellipse  represents  the  same  cloud 

at  t  +  At.  The  upward  motion  of 
the  cloud  bottom  has  been  subtracted 
in  the  figure.  We  see  that  if  the 
vertical  radius  increases  by  AH^, 
the  apparent  cloud  center  height  also 
increases  by  AHc>  and  that  this 
would  occur  even  if  the  momentum 
of  the  cloud  were  zero.  The  ve¬ 
locity  that  appears  in  equation  (B .  1 . 1 ) 
is  relevant  only  to  the  mot'on  of  the 
cloud  from  its  momentum,  whereas  the  observed  velocity  includes  also  the 
apparent  rise  from  the  entrainment  growth.  Thus  the  apparent  rise  velocity 
is  given  by 


Figure  B.  1.  1  Apparent  Increase  in 
Cloud  Center  Height  Resulting  from 
Asymmetric  Entrainment. 


u 

a 


u  + 


dH 

c 

dt 


(B.  1.3) 
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The  -ate  of  change  of  Hc>  readily  derived  by  differentiation  of  equation 
(1.  13),  is  We  then  obtain  for  the  momentum  velocity 

u  =  ua(  1  -  u)  .  (B.  1.  4) 

When  this  is  substituted  in  equation  (B.  1.  1),  and  the  resulting  equation  is 
solved  for  the  cloud  center  acceleration,  we  find 


du 

~3i 


3 


r  2k?v 

1  g  /  (  1  -  M> )  -  — 

J  L.  c 


e  (i-n)  + 


1  dm~l  \ 

m  STfj 


m 


m+m! 

l 


(B.  1,  5) 


where  we  have  dropped  the  subscript  a  on  the  u.  Notice  that  we  have  applied 
the  (1-p)  factor  to  the  characteristic  velocity,  v,  as  well  as  to  u.  This  js 
done  because  v  acts  as  a  rise  velocity  in  evaluation  of  the  drag  force  on  the 
cloud  (see  eq.  (B.  1.  1)). 

Table  B.  1.  1  gives  illustrative  values  of  the  factor  1  -  p  as  computed 
from  equation  (1.18).  Obviously,  for  high  yield  shots  this  factor  is  quite 
significant. 


TABLE  B.  1.  i 

Values  of  1  -  p  for  Selected  Explosion  Energy  Yields 


W(kT) 

1  -  ^ 

.  01 

.  949 

.  1 

.  933 

1 

.  908 

10. 

.876 

100. 

.  833 

1,  000. 

.  774 

10,  000. 

.  695 

100,  000. 

.  589 
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APPENDIX  C.  1 

I'm.  KNTRAINwihNT  EQIJ  A'  .M 

In  the  original  cloud  rise  model,  Huebsch  uses  an  entrainment 
equation  (equation  i.H  of  reference  C.  1.  1)  that  consists  of  a  single 
term  which  corresponds  to  the  first  term  on  the  right  of  equations 
(1.7D)  and  (1  7W  )  above.  This  relation  was  found  to  yield  acceptable 
cloud  rise  simulations,  particularly  in  terms  of  the  stabilized  cloud 
properties,  and  its  acceptance  is  based  on  this  excellent  criterion. 

On  the  other  hand,  the  study  by  Norment  and  Woolf  of  observed  cloud 

C  1  <2 

rise  behavior  '  has  led  to  an  empirical  unde  r  standing  of  the  basis 
of  the  Huebsch  relation,  and  it  has  shown  that  the  relation  actually  is 
inadequate  to  describe  entrainment  by  the  early  cloud.  In  this  appendix, 
we  will  show  now  a  more  correct  entrainment  equation  can  be  derived 
from  the  ideal  gas  law  and  observed  cloud  behavior,  and  how  the  Huebsch 
entrainment  equation  relates  to  this. 

DERIVATION  OF  IMF  ENTRAINMENT  EQUATION 

I  et  us  begin  with  the  well-known  equations  for  expressing  rate  of 
change  of  volume  and  temperature  in  an  idea)  gas  hot  bubble  rising 
through  an  ideal  gas  hydrostatic  atrnosph"  re . 

L  ill 

T  dt 


1  iLY 

V  fit 


(•■t)  - 


dm 

~dT 


I  d  I  ’  ft 
P  It  C.p 


(C.  1  .  1  ) 
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"TIT 
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T 


dl’ 

fit 


flip 

fit 


(C.  1.2) 
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where 


T 


P 

P 

e 

m 

P 


t 

R. 


V 


average  cloud  temperature 
average  cloud  den-uty 
density  of  the  ambient  atmosphere 
total  c * ou d  mass 

pressure  *  we  assume  pressure  equilibrium 
with  the  atmosphere) 

time 

molar  ideal  gas  law  constant 

molar  heat  capacity  at  constant  pressure- 

total  cloud  volume. 


To  avoid  algebraic  complications  that  result  from  including  soil  and 
water  vapor,  we  will  assume  an  air  burst  in  a  dry  air  environment  at 
low  altitude.  To  obtain  the  entrainment  equation,  we  rearrange  equation 
(C.  1.  2)  ar.d  multiply  through  by  m  to  obtain 


dm  dV  m  dT  m  dP 

dt  °  dT  '  T  rlt  P  dT 


( C .  1.1) 


Next  let  us  assume  an  oblate  spheroidal  shape  for  the  t  loud 

(i.  e.  V  -  %  n  R  )  so  that 
i  c  c 


1  lLV 

V  dt 


.  fill 

1  c 

IT  dt 


(C. 1  4) 


where  H  and  R  are  the  vertical  and  horizontal  cloud  radii  respectively, 
c  c 

Studies  of  cloud  rise  data  show  that  for  times  less  than  about  two  or  three 
minutes  (depending  on  yield) 


) 
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H  A  (  z  -  z  .  ) 

c  1 


(C.  1.  5  ) 


z 


kt 


n 


(C.  1.6) 


and  up  to  stabilization  time 


H  u.  (/.-/.  ) 
c  Z 


(C.  1.7) 


where  z  is  the  cloud  center  height  and  X,  p,  z^,  k,  and  n  are  constants 

that  can  be  deter  ined  from  cinefilms  for  particular  shots.  By  combining 
equations  (C.  1.  S)  and  (C.  1.  6)  we  get 


R  X  ktn 

c 

and  from  equations  (C.  1.6)  and  (C.  1.7)  we  get 


(C.  1.8) 


H 

c 


u  k  t  t  u( z 


-  7z]- 


(C.  1.9) 


Now,  on  substituting  equations  (C.  1.8)  and  (C.  1.9)  into  equation 
(  C  .  1.4)  we  obtain 


i  iiy 

V  dt 


Z  n 

r 


nkt 


n  -  1 


kt  f  /.j-  z2 


(C.  1  10) 
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Next,  by  differentiation  of  equation  (C.  l.(>)  we  obtain  the  cloud  rise 
velocity,  u 

n(  -  z  ,  ) 


(C.  1.  1  1) 


and  substitution  of  this  into  equation  (C.  1.  10)  followed  by  multiplication 
through  by  V  yields 


vu  r  2 ,  i _ i 

7.  -  7.  J  [_  1  t  (  v  J  -  /-2  )  7  (  7.  -  V.  J  )  J 


(C.  1  .  12) 


Substitution  of  equation  (C.  1.  12)  into  equation  (C.  1.  3)  yields  finally 


PuV  f  ,  1  m  d  f 

/.  -/j  1  1  f  (  /.  j  -  7.z)  /  (/.  -  /-j  )  J"  T  dt 


m  dj’ 
P  dt 


(C.  1.13) 


which  is  our  basic  entrainment  equation. 

To  express  this  in  a  form  that  can  be  related  to  the  entrainment 
equation  given  by  Huebsch,  we  need  only  require  that  /.  j  .  (As  noted 

in  reference  C.  1.2  this  is  frequently  true,  but  in  virtually  all  cases, 
even  at  early  times  when  z  is  small, 


7  l  '  7  L 


an'!  can  be  neglected.  )  Then  since  V  4  n  K  II  mil  we  issume  H 

,  e  c  c 


U(  •/.-•/,  j  )  (  see  equa  ti  on  ( (  .  1  .  7  ) ) ,  wi  obtain 
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m  dT  .  m  dP 
uu  "  T  It  +  p"  Jt 


(C.  1.  14) 


where  S  =  4  tt  R  .  Comparison  of  this  equation  with  equation  (3.8)  of 
reference  C.  1.  l,the  Huebsch  entraii  ment  equation,  shows  that  if  we 
neglect  the  second  and  third  terms  on  the  right  hand  side  of  equation 
(C.  1.  14),  we  have  an  equation  that  is  equivalent  to  that  of  Huebsch*. 
Furthermore,  the  Huebsch  parameter  X  is  indicated  to  be  equivalent 
to  our  parameter  u  and,  if  this  is  true,  should  be  a  function  of  explosion 
energy  yield, 


U  =  0.  092  W 


0.  130 


(C.  1.15) 


where  W  is  in  units  of  kilitons.  Huebsch  has  used  a  constant  value  of 
0.  25  for  this  parameter. 


SIGNIFICANCE  OF  THE  ADDITIONAL  ENTRAINMENT  EQUATION  TERMS 

It  is  easy  to  show,  though  we  shall  not  go  through  the  calculations  here, 

that  when  the  cloud  is  hot  (i.  e.  ,  when  T  >  >  T^),  the  temperature  term  in 

equation  (C.  1.  14)  actually  dominates  the  entrainment.  Thus,  neglect  of 

the  temperature  term  results  in  a  gross  underestimation  of  the  entrainment 

rate  under  thi3  condition.  By  referring  to  equation  (C.  1.  1)  it  is  easy  to 

see  that  if  the  entrainment  rate  is  incorrect,  the  cooling  rate  is  affected 

directly.  Again,  it  is  easy  to  show,  via  simple  calculations,  that  when 

T  >>  T  the  coding  rate  is  ir.deed  drastically  in  error.  For  example,  for 

a  cloud  at  3000°  K,  under  expected  conditions,  the  fractional  cooling  rate 
1  d  X 

(i.  e.  ,  Tp  )  of  the  old  model,  when  compared  with  the  revised  model,  is 

too  low  by  a  factor  of  almost  four. 


*  Equati<  a  (3.8)  of  Huebsch  contains  a  turbulent  kinetic  energy  contribution 
to  the  velocity  factor  (  sec  equation  2.  8  of  reference  C.  1.  1),  however,  at 
early  times  this  contribution  is  negligible  and  is,  I  believe,  ignored  (see 
section  2.  b.  3  of  reference  C.  1.  1) 
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With  regard  to  the  pressure  term  that  appears  in  equation  (C.  1.  14), 
its  contribution  seems  to  be  quite  small  relative  to  the  other  terms  at  all 
times.  Thus,  its  neglect  in  the  prior  version  of  the  model  should  not 
have  significantly  influenced  the  simulation  results. 


TURBULENT  KINETIC  ENERGY  AND  ENTRAINMENT 

The  use  of  turbulent  kinetic  energy  density  to  control  late  cloud  rise 
and  growth  is  a  major  attraction  of  the  Huebsch  clour)  rise  model.  For¬ 
tunately,  there  is  no  reason  why  the  revised  version  of  the  model  cannot 
incorporate  turbulence  effects  in  a  manner  analogous  to  that  used  pre¬ 
viously.  This  is  Gone  simply  by  replacing  the  cloud  rise  velocity  in 
equation  (C.  1.  14)  by  the  "characteristic  speed,  "  v, 

v  -  max  (|u|,\/2e) 

This  has  been  done  in  equations  (1.7D)  and  (1.7W)  above . 
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CLOUD  RISE  MODULE 
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INTRODUCTION 


The  Cloud  Rise  Modulo  computer  code  has  been  thoroughly  revised 
and  reorganised.  The  revisions,  for  the  most  part,  reflect  the  basic 
changes  in  the  model  that  are  discussed  in  Part  1  of  this  document.  In 
terms  of  its  eifect  on  the  code,  certainly  the  change  with  most  far  reach¬ 
ing  effect  is  the  deletion  of  the  particle  growth  capability.  This  deletion 
has  allowed  the  elimination  of  several  whole  subroutines,  it  ha.  allowed 
use  of  a  single,  arbitrary  tabular  representation  of  the  fallout  particle 
size  spectrum,  which  is  provided  by  the  Initial  Conditions  Module,  and 
it  has  made  much  easier  the  work  of  reorganization  and  tidying  of  the 
code . 

Several  changes  that  do  not  affect  the  cloud  rise  simulations  per  sc, 
but  are  of  fundamental  importanc  e  to  subsequent  atmosphe  ric  transport 
and  output  processing,  have  boon  made  in  subroutine  RSXP.  These 
changes  are  as  follows: 

1.  In  the  old  model,  all  output  particle  wafers  have 
square  shaped  horizontal  cross-sections  with  an 
edge  length  that  is  equal  for  all  wafers.  In  the 
old  model  it  is  necessary  to  subdivide  all  large 
wafers  in  the  horizontal  plane,  and  the  wafer  edge 
length  is  determined  by  the  number  of  horizontal 
wafer  subdivisions  that  aie  specified  by  the'  user. 

In  the  new  model  it  is  possible  to  subdivide 
wafers  in  the'  horizontal  plane  as  before,  but  no 
longer  is  it  necessary  to  do  so.  Now  wafers  of 
any  horizontal  dimensions  a  re  acceptable  to  the 

I  .-port  Modules  and  the  Output  Processor 
Module  of  DFl  M  IC. 

2.  In  the  previous  model,  output  particle*  wafers 
have*  no  ve*rtical  thirkne*ss;  each  wafer’s  con¬ 
tents  are  project'd  on  to  the*  horizontal  plane* 
that  passes  through  its  center.  Iri  the  ne*w  mode-1, 
each  wafe*  r  maintains  its  vertical  thickness 
throughout  the*  cloud  rise*  computation ,  and  it  is 
described  in  the*  output  as  a  three-dimensional 
e*nt  it  y. 

j.  In  the  new  model  the  rise  and  growth  of  the*  top 
and  bottom  of  eac  h  particle  wafer  is  computed 
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independently.  This  allows  the  wafer  geo¬ 
metry  to  be  determined  in  a  physically  realistic 
manner.  Thus,  should  the  bottom  of  a  wafer 
settle'  out  of  the  cloud  cap  before  the  cap  has 
attained  its  final  height  and  size  ,  while  the 
wafer  top  remains  inside  the  cloud,  then  the 
wafer  top  and  bottom  not  only  can  be  separated 
by  a  considerable  distance  in  the  vortical,  but 
also  they  can  be  very  differ  rent  in  their  hori¬ 
zontal  dimensions.  The  new  model  has  been 
designed  to  cope  with  these  situations.  The? 
precise  means  usee!  is  elescribed  here.  A 
corollary  change  allowed  by  this  new  feature 
is  that  it  is  no  longe'r  necessary  or  desirable 
to  reduce  below-cloud  wafer  radii  by  an  unreal¬ 
istic  "stem  shrinkage  factor"  (see  equation 
(2.  19)  of  the  first  edition  of  DASA  -  1  800-III). 

In  Appendix  A.  2  we  present  some  simulated  stabilized  cloud  data  arid 
we  compare  these  with  observations.  In  addition,  a  complete  cloud  rise 
history  for  a  1  5M  T  surface  shot  is  given  in  graphical  form. 


METHOD  OF  CALCULATION 

The  basic  differential  equations  used  to  describe  the  cloud  rise-  and 
growth  have  been  described  in  Part  1  and  will  not  he  repeated.  We  are 
concerned  here  with  specific  numerical  procedures  and  geometric  con¬ 
structs  used  in  the  Cloud  Rise  Module  calculations.  These  calculations 
are  divided  iMo  two  major  parts.  The  first  is  carried  out  lay  subroutine 
CRM  and  its  associated  programs;  the  second  is  carried  out  by  subroutine 
RSXP.  CRM  computes  the  cloud  rise  and  growth  as  described  in  Part  l 
and,  in  the  process,  compiles  a  time-history  table  of  cloud  properties 
(array  CX(1,  .1))  After  the  complete  execution  of  CRM,  the  cloud  rise 
history  table,  CX(I,  .1),  is  used  by  subroutine  RSXP  to  resimulate  the 
cloud  rise  for  the  purpose  of  setting  up  a  list  of  pa  rticl  e  s -a  loft  for  input 
to  the  Transport  Modules.  Details  concerning  cloud  structure'  are  some¬ 
what  different  for  the  two  parts  of  the  calculation.  1  or  this  reason  we 
consider  the  methods  used  during  these  calculations  separately.  It  should 
always  he  borne  in  mind  that  the  CRM  calculation  results  are  used  to 
construct  array  CX,  which  then  forms  the  basis  for  the  RSXP  calculations, 
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and  the  only  communication  between  the  CRM  and  RSXP  calculations  is  via 
this  array  and  the  pa  r  tic  le  -  size  mas  s  -  f  requency  distribution. 

BUOYANT  CLOUD  RISE:  THE  CALCULATIONS  OF  SUBROUTINE  CRM 


Initial  Conditions 

Explosion  yield,  height  of  hurst,  initial  time,  initial  temperature,  soil 
burden,  soil  solidification  temperature,  and  a  particle  size  distribution 
table  are  supplied  by  the  Initial  Conditions  Module  (see  DA SA  -  1800-11 ). 

Other  initial  conditions,  such  as  cloud  center  height,  fraction  of  ex¬ 
plosion  energy  in  the  cloud,  cloud  volume,  and  vertical  and  horizontal  radii 
of  the  cloud  are  competed  as  indicated  in  Part  1. 


Physical  Quantities 

Specific  heats  of  air,  water,  and  soil  are  computed  by  the  following 
equations  (joules/(kg  -  K)) 


c 

Pa 

946.  6  +  0.  1 9 7  1  0 T , 

T 

£  2  300°  K 

c 

pa 

= 

-  3587.  5  +  2.  125T, 

T 

->  2  3  00 °  K 

(2.  1) 


c 

pw 


1697.  66  f  1.  1 4 4  1 7 4 T 


(2.  2) 


781. 6  (  0.  56S2T  -  1  .  881  r.  1  07 /T^ ,  T  .  848°K 
100  3.  8  t  0.1  35  IT,  T  ->  848°K  . 


The  specific  heat  ecjuations  for  air  and  water  were  derived  from  data  in  the 
NILS  Gas  Tables^'  The  specific  heat  equations  for  soil  are  those  given  by 
K  i*  1 1  y  for  s  i  1  i  c  a .  ^  ' 

The  latent  heat  of  vaporization  of  water  from  liquid  to  vapor  is  2.5x  10*’ 

joules/kg,  and  fron.  ice  to  vapor  is  L  8  i  x  10*  joules/kg.^‘  *  The  heat  energy 

12 

equivalent  of  on*  kiloton  of  explosion  oru  rgy  is  4.  18  x  10  joules. 

Ihe  ideal  gas  law  constant  for  air  is  taken  is  287  jou)es/(kg  -  K),  and 

the  acceleration  of  gravity  is  9.8m/sec  . 
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The  water  vapor  mixii  g  ratio  in  the  atmosphere  external  to  the  c'oud, 
x  ,  is  computed  from  the  i  xpressior, 


x 

e 


1  09 .  9 hi  1 


R 


29P 


-5.  1  i 

1 

1 

/  T  \ 

,  T  -  271  ) 

exp 

?  1  1 

e 

127  1  i 

C,  1 

T 

\  ) 

l  °  > 

(2.  4) 


where  T  is  the  temperature  of  the  atmosphere  external  to  the  loud,  H  ^ 
is  the  relative  humidity  (per  cent),  and  P  is  the  pressure  (newtons  per 
square  meter).  Saturation  water  vapor  pressure  in  the  cloud  is  computed 
from  the  expression 


P 

ws 


61  1 


T 
2  73 


-5.13 


e  xp 


25 


T  -  2  7  3  \ 


Atinosphe  re  St  ructu  re 


(2.  5) 


The  Cloud  Rise  Module  makes  use  of  a  tah  ilar  description  of  the 
properties  of  the  atmosplu  re  through  which  the  cloud  is  to  rise*.  A  tabu¬ 
lated  description  of  atmospheric  properties  vs.  height  must  be  supplied 
to  the  Cloud  Rife  Module,  but  great  latitude  exists  with  regard  to  the 
heights  at  which  |  roperhes  may  be  specified,  the  formats,  order,  and 
units  in  which  the  values  of  property  parameters  may  be  furnished,  and 
even  the  availability  of  certain  parameters.  I'lie  tabulated  quantities 
required  (but  not  all  necessarily  supplied  in  the'  input)  are  altitude, 
temperature,  density,  viscosity,  pressure,  and  n  lative  humidity.  Also 
included  with  these  tables  are  acceleration  of  gravity  and  mean  free  path. 
The  atmospheric  description  derived  from  the  mpul  data  extends  from 
-1000  to  50,000  m  in  increments  of  ,’iMliu.  Complete  details  art'  given  in 
the  discussion  ol  subroutiiu  'Old)  and  in  the  User  Information  Section. 


Wind  Data 

In  compute  the  effect  on  the  i  loud  rise  of  wind  shear  requires  avail¬ 
ability  of  th(>  altitude  profile  ol  winds.  These  winds  are  input  via  the 
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lull  i<>  I  t  'i  ">>  1 1 1  (■  "  i  s  Module.  V,’  it,.’  hear  ;j  f  t*-(  1  .•!  .iri  loinpnfcci  via  I  h  method 
il.'si  :  i!>t  I  on  i  .  b  .  Wind  c  impellents  at  .my  al'itucW  aro  evaluate  1  by  lineal 
mli'  rp<  la  I  inn  a  ith  altitude  m  the  wind  data  table. 

I'artu.  lo  Size  Spc etra 

I'll*'  r.loud  Rise  Module  receives  a  tabular  representation  of  a  fallout 
p.t  lit  le  si/e-iimss  fraction  d  i  s  t  r  ibution  front  the  initial  Conditions  Module, 
r.e  (.list  r i bu l i i 'll  is  resolved  mt<'  so-called  pat  lit  le  size  classes  such  that 
e,i  1  table  i  tilry  contains  data  pertinent  to  one  size  class.  The  data  are: 
centre  1  particle  diameter  for  the  size  class,  upper  and  lower  boundary  dia- 
ni"k  is  lor  the  size  class,  and  the  mass  fraction  of  the  total  soil  burden  that 
occurs  within  the  size  class.  The  central  pat  tide  diameter  is  the  geometric 
iiH.uiol  do  bounda  ry  dian  (  (e  rs.  I’urliilc  density!*  input  via  COMMON/SE  Tl  / . 

lln  Initial  Conditions  Module  can  construct  tables  for  two  analytical 
distribution  forms,  lognormal  and  power  law,  tram  the  required  function 
p  ■  ameteis  and  a  spec  ilication  of  tbe  number  of  size  classes  desired  (sec 
I'.a  iA  IhOO-lI  «:id  ts  recent  addenda).  It  also  can  accept  distribution  data 
a!r«  ariy  resolved  into  tabular  form  so  tbit  it  is  not  necessary  that  one  of 
the  analytical  distributions  be  used. 

Loss  of  boil  Material  from  the  Rising  Cloud 

Fbe  amount  of  material  lost  for  eacli  particle  size  class  is  computed 
after  eacli  time  nu  rement  and  tile  in  cloud  paiticle  d i. s I  r ibution  is  adjusted 
accordingly  The  cloud  particle  content  is  assumed  to  be  uniformly  dis¬ 
tributed  through  the  cloud  at  all  times  No  attempt  is  made  to  follow  the 
free  air  si  thing  of  soil  mass  increments  subsequent  to  their  departure 
from  the  cloud.  1  lie  computed  Loss  of  soil  material  directly  affects  the 
doun  b/o /aiicy  and  in-cloud  particle  distribution  ami  indirectly  affects  the 
cloud  trajectory  and  temperature  history, 

Ni i n ic  r ■  cal  Liifi'i, i  .i I  iii. i 

A  .'mirth  order  I  inge-Kutta  method  is  used  for  integrating  the  differ¬ 
ent!  il  equations  lor  the  various  cloud  rise  and  growth  processes.  This 
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method  requires  four  evaluations  of  the  differential  equations  for  each  time 

step.  Given  a  quantity  f  at  time  t  with  differential  (dl/'dt)^,  the-  method  pro- 

ee ds  to  evaluate  f  at  time  t  I  At  via  the  algorithm: 

I  4  At 


Fixed  time  steps  of  1/16,  1/2,  and  5  sec  are  used  according  to  the  schedule: 
t  -  t;  <  1  sec,  At  1/16  sec 

l 

1  £  t  - 1.  <  100,  At  1/2 
i 

100  <  t  -  l  ,  At  5 


■a  he  re  t.  is  the  initial  time. 

l 
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It  i  nl  | 1  r  i  In  i !  to  r  i  i  i  - 1  (|  toy  In  r.iyr  ,  1 1 1  of  tin*  required  cloud  (proper- 
t  i < •  lit  i  1 1  t  i  yi  p  I'uniij'  ilu’  C.HM  i  ,di  iil.ilions,  Instead,  a  time  history 
t  I  *  I  <  • ,  1  \  i  s  iii  ijiil.il  .it  nmri'  widely  spaced  lime  into  rvals.  'Ilu-  quantities 
stored  .ms  time,  i  loud  bottom  .iltiludi  ,  cloud  top  altitude,  radius,  tempera¬ 
ture,  and  r.t>  i|ei; it  y  ,it  the  recorded  time;  also  stored  is  thc>  time  interval  to 
tin  next  I  ib  1 1  enl  rv  and  the  average  rates  of  cloud  base  and  top  rise-  during 
this  internal.  1  In  si  rates  an-  computed  by  di  ffe -encing  the  appropriate  (XX 
entries  and  div  ionic;  bv  the'  time  increment. 

l'be  (XX  labb  entries  an  made  at  times  specified  as  follows.  The  lirst 
entry  is  made  at  the  initial  time,  t..  l  or  the  nth  table  entry,  t^  is  given 
approximately  by 

,  t.  ,  ,  n  >  i  ,  u.: 

n  i  1 1  \  m  } 

when  e  is  the  base  of  the  Nape  rian  logarithm  and  m  is  currently  given  the 

value  ig.  It  the'  use  r  knows,  or  ran  estimate,  t  and  the  cloud  stabilization 

time  (the  maximum  t  j,  lie  can  aclju;-*  the  number  of  entries  in  the  CX  table 

n 

to  any  desired  value  by  solving  equation  (2.  7)  for  m.  The  new  factor  c/m 
is  then  applied  in  subroutine  CXPN  at  statement  '■>  t  l. 

So j  I  .So  1  if : ific.it ion  I  mw 

The  lime  at  whicli  the  average  cloud  tempe  r.ttu  re  reaches  the  soil  soli¬ 
dification  ti  mpciaturc  is  of  fundamental  importance  to  the  Particle  Activity 
Module  c  ibu  at.ion  (see  HAS  A  1800-V),  This  time  is  detc*  rmined  (subroutine 
1  .IN  K  ?  i  i  >  li.'cir  interpolation  in  the  (XX  table  alter  the  cloud  rise  is  com¬ 
pleted. 

Prog_r.n  mod  slops 

There  ire  six  programmed  slops  in  the  cloud  rist  calculations.  I  he 
particular  switch  used  to  stop  Ini  calculations  al  ways  is  identified  in  the 
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output.  1'or  five  ol  the  switches  the  output  idem  Miration  is 

ri  oni)  risk  is  i  krmina  ikd  in 
my  i  iti-:  |  vvt  inn  |  switch. 

1)C'SN  or  ( '  X  1 1 N  is  the  name  of  the  relevant  subroutine.  XXXX  is  the  appropriate 
FORTRAN  statement  numoer  to  be  loimd  in  tie  ran!  listings,  and  WORD  is  the 
switch  identifier  as  given  in  the  following  descriptions  of  the  switches: 

1.  Radius  expansion  switch  (WORD  R  RATIO 
Cloud  rise  is  stopped  when  the  inequality 


J  ISj  AT  STATIC MFN  I  \  XXXX  } 


*  (C 

is  satisfied,  where 

TSRD  -  exp  [  0.0H778/n(W)  -  7.04!)!)]  ,  (2.!)) 

W  is  the  explosion  yield  in  kilotons  R  is  the  horizontal  cloud  radius,  and 
t  is  time.  The  suhsci  ipt  a  refers  to  the  nth  entry  in  the  CV  array  table 
(see  the  Cloud  Rise  History  Table  section).  This  is  a  normal  termination. 
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2.  Run-away  switch  (WORD  h  ZLMT) 

Cloud  rise  is  stopped  when  the  inequality 

z  >  ZLMT 

is  satisfied,  where 

ZLMT  =  104  W1/4  ; 

z  is  cloud  center  height  and  W  is  explosion  yield  in  kilotons.  This  is 
an  abnormal  termination. 

3.  Temperature  switch  (WORD  =  TEMP) 

Cloud  rise  ie  stopped  when  the  inequality 

T  <  10 

is  satisfied,  where  T  is  the  average  cloud  temperature  in  degrees 
Kelvin.  This  is  an  abnormal  termination. 

4.  CX  array  overflow  switch  (WORD  =  MCX) 

Cloud  rise  is  stopped  when  the  inequality 

MCX  >  90 

is  satisfied.  MCX  is  the  CX  array  entry  counter.  This  is  an  abnormal 
te  rmination. 

5.  Minimum  radius  switch  (WORD  s  R.  LT.  i) 

Cloud  rise  is  stopped  when  the  inequality 

R  <  1 


(2.  10) 


(2.  11) 


(2.  12) 


(2.  13) 


(2.  14) 
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is  satisfied,  where  R  is  the  horizontal  c  loud  radius.  '1  Ins  is  an  abnormal 
termination. 

The  sixth  switch  is  used  to  terminate  the  cloud  rise  if  a  negative 
particle  number  density  (numbe r/unit  cloud  volume)  is  found.  A  coiVunent 

NEGATIVE  PARTICLE  DENSITY 

is  printed. 

GENERATION  OF  THE  PARTICLES  ALOFT  LIST:  THE  CALCULATIONS 
OF  SUBROUTINE  RSXP 

As  described  previously,  the  RSXP  calculations  consist  of  a  second 
pass  through  the  cloud  rise  using  the  cloud  rise  history  table,  CX.  During 
these  calculations  particle  inputs  are  prepared  for  the  transport  calcula¬ 
tions.  In  subroutine  RSXP  no  accounting  is  made  of  the  horizontal  move¬ 
ments  of  particles  during  the  cloud  rise;  such  corrections  are  applied  to 
each  cloud  subdivision  by  subroutine  WNDSFT  of  the  Cloud  Rise-Transport 
Interface  Module. 


Cloud  Structure 


Throughout  the  RSXP  calculations  the  cloud  is  taken  to  have  a  cylin¬ 
drical  structure  with  radius,  top  height,  and  bottom  height  taken  from  the 

* 

CX  array.  At  the  initial  time,  the  cloud  is  subdivided  by  a  set  of  horizon 
tal  planes  into  an  arbitrary  specified  number  of  subcylinders  as  shown  in 
Figure  2.  1.  A  geometrically  identical  and  co-located  set  of  such  spatial 

subdivisions  is  defined  for  each  particle 


size  class.  Hereafter  we  shall  call  these 
subdivisions  wafers.  The  number  of 
wafers  per  particle  size  class  is  the  same 
for  each  particle  size  class  and  is  speci¬ 
fied  by  an  input  integer  KDI.  If  the  input 


Figure  2.  1.  Subdivision  of  the  Initial - 
Time  Cloud  Cylinder  into  Four  Wafers. 

The  CX  Array  entries  are  calculated  for  an  oblate  spheroidal  cloud  in 
the  CRM  calculations. 
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value  ol  KDI  5  0,  a  value  of  KDI  is  supplied  by  the  propram  ar 


I\1)I  INT  ri.n  I  -  z,,  )/  100.  o"1 

I  .max  l',max  J 


(2.  1  5) 


or  KDI  5  whichever  is  create  r,  where  and  z ,,  art  the 

T.max  15,  max 

final  cloud  top  and  bottom  altitudes  in  the  C'.X  array  in  units  ol  meters, 
and  INT  means  the  integral  part  of  .  .  .  .  ' 

file  parameters  used  to  describe  each  wafer  at  any  time  are  the 
altitude  and  radius  of  its  top,  the  altitude  anti  radius  of  its  base,  its 
particle  size,  and  the  mass  of  its  fallout  content 

To  describe  how  subroutine  RSXP  computes  the  particles  aloft  dis¬ 
tributions,  let  us  consider  the  computations  for  a  single  particle  size 
class,  and  keep  in  mind  that  the  calculations  are  repeated  for  all  of  the 
remaining  particle  size  classes.  The  calculations  begin  at  the  initial 
time  with  a  wafer  configuration  as  illustrated  by  Figure  2.  1.  In  these 
calculations  the  central  particle  diameter  for  the  size  class  is  not  used; 
instead  the  size  class  boundary  particle  diameters  are  used,  with  the 
heaviest  particle  assigned  to  the  bottom  of  each  wafer  and  the  lightest 
particle  assigned  to  each  wafer  top.  Thus,  the  waft  r  tops  and  bottoms 
are  processed  in  pairs  throughout  the  portion  of  the  calculations  that 
pass  the  CX  array. 

Beginning  at  the  initial  time,  the  calculations  proceed  in  time  through 
the  CX  array  so  that  at  each  new  time  unique  cloud  cap  base  altitudes, 
top  altitudes,  and  radii  are  defined.  At  each  time,  the  still  air  gravity 
settling  rate  is  computed  for  each  wafer  top  or  bottom,  and  this  velocity 
component  is  subtracted  from  its  rise  velocity,  which  is  computed  as 
described  in  the  next  section,  so  that  each  wafer  top  or  bottom  has  a  non¬ 
zero  vertical  velocity  component  relative  to  the  cloud  cap  center. 

When  a  wafer  top  or  bottom  falls  through  the  base  of  the  cloud  cap, 
its  radius  is  taken  as  the  radius  of  the  cloud  cap  at  the  time  of  its  fallout, 
and  its  radius  is  kept  at  this  value  henceforth. 

If  it  is  found  that  both  the  top  and  bottom  of  a  wafer  are  still  within  the 
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cloud  cap  at  stabilization  time,  then  both  have  radii  c  q ua I  to  the  final 
cloud  cap  radius,  and  the  vdIuiiii'  of  the  wafe  r  is  taken  to  he  the  volume 
of  a  right  circular  cylinder  of  height  equal  to  the  diffc  rence  between  the 
altitudes  of  wafer  top  and  bottom.  However,  if  it  is  found  that  the  bottom 
or  top,  or  both,  of  a  water  is  below  the  cloud  at  stabilization  time,  then, 
to  account  for  the  difference  in  radii  between  the  wafer  top  and  bottom  re¬ 
quires  some  additional  complexity  in  the  tabulations  and  requir<  s  further 
subdivision  of  the  wafer.  To  take  this  variation  of  radius  w'itli  aliitude  into 
consideration,  the  following  scheme  is  employee: 

The  space  between  the  top  and  bottom  of  the  wafer  is  subdivided  into 
n  volumes 


where  R.^  and  R  are  the  radii  of  the  top  and  bottom  of  the  wafer,  respec¬ 
tively,  as  shown  in  Figure  2.2.  The  range  of  n  is  constrained  to  lie  be¬ 
tween  2  and  10.  The  radius,  R,  at  any  altitude  /.  between  and  the 

respective  altitudes  of  the  wafer  top  and  bottom,  is  computed  by  the  geo¬ 
metric  interpolation  formula 


R  R 
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U.  17) 


Each  of  the  n  small  volumes  is  assumed  to  have  the  same  vertical  thick¬ 
ness.  It  is  also  assumed  that  each  contains  the  same  amount  of  particu¬ 
late  mass.  Given  the  above  assumptions,  it  can  be  shown  that  the  volume 
of  the  ith  subvolume  is  given  by 
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and  that  the  altitude  of  the  center  of  mass,  z  ,  of  the  ith  subvolunie  is 

cm 

given  by 
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The  radius  of  each  subvolume  is  t*'**r.  lanen  to  be  the  radius  at  the  altitude 
of  its  center  of  mass.  In  the  Cloud  Rise  Module  output  each  subdivision 
is  assigned  the  geometric  mean  particle  diameter  for  its  particle  size 
class. 

Wafer  Velocity  Calculation 

The  velocity  of  a  wafer  top  or  bottom  is  the  difference  between  the 

still  air  particle  settling  speed  and  an  upward  speed  to  be  described  below. 

2.4 

The  settling  speed  is  computed  from  Davies1  equations,*"  which  require 
particle  diameter,  particle  density,  lluid  density,  and  fluid  viscosity  (see 
DA  SA  -  1800-1V ).  For  in-cloud  settling,  cloud  gas  density  is  taken  from  the  CX 
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arr.iyand  viscosity  is  calculate d  f  rum  the  cloud  tempi- rature  ( also  taken  from  the 
CX  array)  by  tlu*  Sutherland  equation  (equation  (1.21))).  For  below-cloud 
settling,  temperature  and  viscosity  are  taken  from  the  tabulated  atmo¬ 
sphere  according  to  the  wafer  altitude. 

The  upward  velocity  component,  u  ,  is  calculated  as  follows: 


1.  In-cloud 


u 

u 


UB  f  (Z-ZB} 


UT  ~  UB  \ 

ZT  "  ZB  J 


2.  Bolow-cloud 


it 

u 


y'B  '  Z  V 
ZB  ‘  *C  7. 


(2.  20) 


(2.21) 


Ug  and  u^,  are  cloud  cap  base  und  top  rates  respectively,  z.g  and  z.j,  are 
cloud  cap  base  and  top  altitudes  respectively,  z  is  wafer  lop  or  bottom 
altitude,  and  z^  ^  is  ground  zero  altitude.  Values  tor  all  cloud  proper¬ 
ties  are  taken  from  the  CX  array  for  the  appropriate  time. 


Cloud  Wafer  Subdivision  in  the  Horizontal 

As  was  discusser!  in  connection  with  Figure  2.  1,  the  cylindrical  cloud, 
at  the  initial  time,  is  subdivided  in  such  a  manner  that  it  can  be  considered 
to  be  a  stack  of  cylindrical  discs,  or  wafers  as  we  have  called  them. 
Initially,  the  cloud  is  assumed  to  have  a  uniform  distribution  of  soil  and 
each  disc  actually  represents  N  separate  wafers  where  N  is  the  number 
of  particle  size  classes.  At  the  end  of  the  RSXP  cloud  rise  calculations, 
these  wafers  are  distributed  between  ground  zero  and  the  final  cloud  top 
height  as  a  result  of  their  gravity  settling,  and,  in  general,  they  will  not 
all  have  the  same  radii.  (See  the  discussions  of  cloud  structure  and  wafer 
velocity  calculation  above.  ) 

If  these  wafers  are  to  be  transported  through  the  atmosphere  down 
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wind  of  the  burst  location  through  a  horizontally  invariant  wind  field 
(e.g.  ,  a  wind  field  constructed  from  a  single  wi.  d  hodograph),  the  wafers, 
as  described  above,  are  completely  adequate  for  input  to  the  transport 
calculations.  On  the  other  hand,  if  the  wind  field  has  horizontal  shear 
which  is  resolved  at  distances  comparable  to,  or  smaller  than,  the  cloud 
diameter,  the  distorting  effect  of  this  shear  on  the  cloud  cannot  be 
accounted  for  by  a  computationally  feasible  process  unless  the  wafers 
are  subdivided  horizontally. 

To  specify  the  amount  of  horizontal  subdividing  to  be  done,  if  any, 
the  user  specifies  an  integer  IRAD.  If  IRAD  =  0,  no  horizontal  subdividing 
is  done,  and  each  cloud  subdivision  is  defined  in  the  output  with  the  radius 
that  is  determined  as  described  previously.  If  IRAD  >  0  then  the  cloud 
wafers  and  wafer  subdivisions  are  subdivided  in  the  horizontal  so  that  each 
subdivision  has  a  diameter,  BZ,  equal  to 


BZ  =  R  /IRAD 
max 


(2.  22) 


where  R  is  the  final  (i.e.,  maxi¬ 
max 

mum)  cloud  radius.  The  manner  in 
which  a  wafer  is  partitioned  into  sub¬ 
divisions  is  illustrated  for  IRAD  =  3 
for  a  wafer  of  maximum  size  in 
Figure  2.3.  From  the  figure  we  see 
that  specification  of  IRAD  =  3  results 
in  creation  of  32  subdivisions  rom 
one  large  wafer.  For  othe”  values 
of  IRAD  we  have  : 

No.  of  Subdivis ions 
from  a  Wafe  r  of 

IRAD  Max.  Radius 

1  4 

2  12 

3  32 

4  52 

5  80 


Figure  2.  3.  Partitic.i  of  a 
Wafer  in  the  Horizontal 
Plane  for  IRAD  =  3. 
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As  shown  in  the  Figure,  the  partitioning  is  done  as  though  each  sub¬ 
division  were  to  be  square  based;  actually,  once  the  subdividing  is 
accomplished,  each  subdivision  is  treated  as  a  circular  based  cylinder 
with  radius  BZ/2.0. 

From  observation  of  Figure  2.3,  it  is  apparent  that  portions  of  some 
subdivisions  extend  beyond  the  boundary  of  the  original  wafer.  There¬ 
fore,  a  criterion  must  be  set  up  by  which  the  computer  can  decide  in  a 
particular  case  whether  or  not  to  define  a  boundary  subdivision.  This 
must  be  a  general  criterion  since  wafer  radii  can  possibly  have  any  values 
between  those  of  the  initial  and  stabilized  clouds.  The  criterion  by  which 
a  cloud  subdivision  on  the  wafer  edge  is  defined,  or  is  not  defined,  is  that 
the  distance  of  its  center  from  the  center  of  the  wafer  be  equal  to,  or 
less  than,  the  wafer  radius.  In  a  case  where  the  centers  of  all  possible 
subdivisions  fall  outside  the  wafer  edge,  a  single  subdivision  is  defined 
with  its  center  coincident  with  the  wafer  center.  In  this  latter  case,  the 
subdivision  radius  is  taken  to  be  the  one  already  available  instead  of 
BZ/2.  0  (i.  e.  ,  it  is  treated  as  though  IRAD  vere  set  to  zero). 

If  a  wafer  is  partitioned  into  M  subdivisions,  then  each  subdivision 
receives  1/Mth  of  the  wafer's  particle  content.  The  vertical  dimensions 
of  all  subdivisions  of  a  particular  wafer  are  taken  as  equal  to  the  vertical 
dimension  of  that  wafer. 

Fallout  Parcel  Descriptions  in  the  Cloud  Rise  Module  Output 

Subroutine  RSXP  writes  the  Cloud  Rise  Module  output  on  storage  unit 
IRTSE.  The  data  recorded  on  the  unit  for  each  cloud  subdivision  are: 

1.  x-coordinate  of  subdivision  center 

2.  y-coordinate  of  subdivision  center 

3.  Time  relative  to  detonation 

4.  Central  particle  diameter  of  the  particle  size  class 

5.  Mass  of  soil  material  in  the  subdivision 

6.  Altitude  of  subdivision  center  of  mass  aoove  msl 
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7.  Radius  of  subdivision  at  its  center  of  mass 

8.  Vertical  thickness  of  subdivision 

9.  Altitude  of  the  base  of  tr.e  subdivision  above  msl 

10.  Volume  of  subdivision 

All  data  are  in  mks  units. 

It  should  be  noted  that  for  a  stem  wafer,  the  volume  of  the  subdivision 
is  computed  via  equation  (2.  18)  which  takes  into  account  a  curvature  in  the 
wall  of  the  wafer  (see  Figure  2.  2).  Therefore  the  volume  specified  by 
item  10  above  will  not  be  the  same  as  the  volume  computed  from  the  radius 
(item  7)  and  the  vertical  thickness  (item  8)  if  the  subdivision  is  assumed 
to  be  a  right  circular  cylinder.  Moreover,  if  a  wafer  has  been  subdivided 
in  the  horizontal,  the  volume  supplied  by  item  10  is  simply  the  wafer 
volume  divided,  by  the  number  of  horizontal  subdivisions  that  are  created. 
Again,  this  will  not  correspond  to  the  volume  computed  for  a  right  circu¬ 
lar  cylindrical  shaped  subdivision. 

PROGRAM  DESCRIPTION 


GENERAL 

The  Cloud  Rise  Module  computer  program  has  been  constructed  in  a 
highly  modular  fashion  so  that  alterations  to  the  program  can  be  made  with 
relative  ease  and  efficiency.  The  subroutine  breakd;  wn  of  the  program 
can  be  considered  at  two  hierarchical  levels.  Subroutines  in  the  upper 
echelon  are  the  subroutines  called  by  the  Cloud  Rise  Module  executive  pro¬ 
gram,  subroutine  LINK?..  These  subroutine.')  arc  ICRD,  CRM,  and  RSXP. 

In  general,  the  upper  echelon  programs  call  one  or  more  additional  sub¬ 
routines  and  these  additional  subroutines  comprise  the  lower  echelon  of 
programs.  Table  2.  1  presents  a  complete  list  of  the  Cloud  Rise  Module 
subroutines  with  a  brief  description  of  the  function  of  each.  Figure  2.4 
shows  the  calling  sequence  organization. 

In  the  sections  to  follow,  LINK2  and  each  of  the  upper  echelon  programs 
called  by  it  will  be  dec  bribed  in  detail.  Only  a  brief  description  of  many  of 
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the  lower  echelon  programs  will  be  given  because  their  functions  usually 
are  quite  narrow,  often  they  are  quite  short,  and  the  FORTRAN  listings 
provide  adequate  description.  One  subroutine,  ERROR,  is  described  in 
DASA-  1800-VIII. 

Communication  between  the  Cloud  Rise  Module  and  other  DELFIC 
modules  is  accomplished  via  COMMON  and  peripherial  storage.  All  in¬ 
puts  from  the  Initial  Condition  Module  are  via  COMMON /SET  1/  (see  the 
LINK2  FORTRAN  listing)  and  communication  with  *he  Cloud  Rise -Trans¬ 
port  Interface  Module  is  via  both  COMMON /SET  1 /and  a  pheripherial 
storage  unit  (IRISE)  written  by  subroutine  RSXP. 

SUBROUTINE  LINK2  (FC-2.1) 

LINK2  is  the  Cloud  Rise  Module  executive  program.  There  are  no 
major  loops  in  the  program  and  for  each  cloud  rise  calculation  there  is 
but  one  pass  through  it.  This  simple  program  needs  no  explanation  be¬ 
yond  that  supplied  by  flow  chart  FC-2.  1. 


TABLE  ..  1 

SYNOPSIS  OF  CLOUD  RISE  MODULE  SUBROUTINES 


Subroutine 

Called 

1  By 

i 

F  unction 

FORTRAN 
Listing  On 
Page 

ATMR 

T "  ■  ■  ■ 

ICRD 

Reads  atmosphere  data  and  pre¬ 
pares  a  table  of  atmospheric 
properties  as  a  function  of  alti¬ 
tude. 

104 

CPFR 

CRM 

Computes  rate  of  fallout  of  soil 
material  during  the  cloud  rise 
and  adjusts  the  in-cloud  particle- 
size  -number-frequency  distri¬ 
bution  table  accordingly. 

109 

CPV 

CRM 

Initializes  for  the  CRM  calcu¬ 
lations. 

111 

CRM 

! 

LINK2 

Cloud  rise  calculation  executive 
program. 

- - - 

113 
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TABLE  2.  1  (Cont'd.  ) 

SYNOPSIS  OF  CLOUD  RISE  MODULE  SUBROUTINES 


FORTRAN 

Called 

Listing  On 

Subroutine 

By 

F  unction 

Page 

CRMW 


CXPN 


DBG 


DCSN 


DERIV 

ICRD 

LINK2 

PAM 

RKGILL 

RSTR 

RSXP 

TRPL 


CRM  Prints  the  results  of  the  CRM 

calculations  in  the  form  of  the 
CX  array, 

CRM  Compiles  the  CX  array  and 

terminates  the  cloud  rise  via 
the  MCX  or  R  RATE  switch 
(see  pp.  48  ff.  ). 

CRM  Prints  the  CRM  debug  output 

if  the  control  parameter 
KCLD  is  given  an  input  value 
of  1. 

CRM  Changes  the  time  step  inter¬ 

val  (see  p.  47  )  and  termin¬ 
ates  the  cloud  rise  calculation 
via  the  TEMP,  ZLMT,  or 
R.  LT.  1  switch  (see  pp.  48  ff,  ). 

RKGILL  Calculates  time  derivatives  for 

the  variable  cloud  properties 
that  are  simulated  by  the 
Cloud  Rise  Module. 

LINK2  Reads  input  data  for  the  Cloud 

Rise  Module  calculations. 

Cloud  Rise  Module  executive 
program. 

LINP.2  Particle  activity  dummy  sub¬ 

routine. 

CRM  Performs  numerical  ,nte- 

gration  of  the  cloud  rise 
differential  equation.', 

CRM  Provides  temporary  storage 

for  cloud  parameters. 

LINK2  Computes  particle  inputs  for 

the  Cloud  Rise-Transport 
Interface  Module. 

General  utility  table  look-up 
and  interpolation  program. 
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SUBROUTINE  ICR  I)  (nu  flou.  c  hart) 

Subroutine  ICRD  reads  all  of  the  Cloud  Rise  Module  card  input  data;  it 
prints  the  header  for  the  Cloud  Rise  Module,  and  it  prints  the  input  data. 
Except  for  the  data  received  from  COMMON /SET  1/,  all  inputs  are  from 
the  operating  system  input  tape. 

One  subroutine,  ATMR  (FC-2.2),  is  called  which  reads  the  atmo¬ 
sphere  input  data.  It  is  designed  to  provide  the  utmost  in  flexibility  of 
input.  The  Cloud  Rise  Module  requires  that  the  tables  range  from  -1000 
through  50,  000  m  (ab  >ve  mean  sea  level)  in  increments  of  200  m.  There 
are  256  altitude  levels  in  the  tables.  The  Cloud  Rise  Module  requires 

tables  of  the  following  atmospheric  properties:  altitude  (m  above  msl), 
o  3 

temperature  (  K),  pressure  (nib),  dersitv  (kg/m  ),  relative  humidity  (%), 

2 

and  viscosity  (kg/(m-sec)).  Acceleration  of  gravity  (m/sec  )  and  molecu¬ 
lar  mean  free  path  of  air  (m)  also  are  included  in  these  tables.  Only 
density  and  viscosity  are  transmitted  to  the  Cloud  Rise-Transport  Interface 
Module. 

The  only  restrictions  on  the  input  data  are  that:  (1)  altitude,  tempera¬ 
ture,  relative  humidity,  and  either  pressure  or  density  must  be  specified 
in  the  input  for  each  input  altitude  level;  (2)  the  altitude  levels  should  lie 
between  -1000  and  50,000  m;  (3)  the  data  for  each  altitude  level  must  be 
read  in  together  in  a  sequence  and  according  to  a  format  common  to  all 
levels;  and  (4)  the  altitude  levels  must  be  input  in  order  of  increasing 
altitude.  The  data  input  format  is  specified  by  an  object-time  FORMAT. 

A  card  with  ten  scale -transformation  parameters  is  read  so  that  the  data 
can  be  provided  in  any  units  that  happen  to  be  convenb-rt.  Ordering  of 
data  within  altitude  levels  is  arbitrary  and  is  specified  by  a  data  sequence 
card. 

Of  the  eight  quantities  required,  only  the  four  essential  quantities  listed 
above  must  be  supplied  by  input,  but  any  or  all  of  the  other  quantities  can 
be  supplied  also.  Those  not  supplied  in  the  input  are  specified  by  the 
program.  Viscosity,  Tj  (kg/(n  -sec)),  is  computed  by  Sutherland's  equation 
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T|  = 


145.  8  x  10"8T3/2 
110.  4  +  T 


(2.  23) 


mean  free  path,  M(m),  is  computed  from  the  expression 
M  =  2. 33239  x  10-7  T/P  , 


(2.  24) 


where  T  is  temperature  in  degrees  Kelvin  and  P  is  pressure  in  milli¬ 
bars,  the  acceleration  of  gravity  is  assigned  a  constant  value  of  9.  8 
2 

m/sec  ,  and  pressure  or  density  is  calculated  by  the  expressions 


P  =  2867.  9pT  +  P 


(2.  25) 


or 


[p  -  pwhr  I 

(l  - 

29 

/ 

where  P^,  the  saturation  vapor  pressure  cf  water,  is 


Pw  =  6.  11 


273 


5.  1  3 


exp 


25  (T  -  273)1 


(2.  26) 


(2.  27) 


P  is  total  pressure;  p,  density;  T,  temperature;  and  H^,  relative 
humidity.  Units  for  these  quantities  an  as  specilied  previously. 

The  input  is  unrestricted  with  regard  to  altitude  levels  and  inter¬ 
vals  between  levels  except  for  the  restrictions  already  mentioned.  If 
the  input  data  do  not  begin  at  -1000  m  altitude,  the  program  provides 
data  for  this  level  and,  chen,  checks  to  find  whether  the  first  input 
entry  is  for  a  level  le'iS  than,  or  equal  to,  '.ero  meters  altitude.  If  not, 
data  for  zero  meter s  altitude  also  is  provided.  Finally,  if  the  last  in¬ 
put  entry  is  for  ar>  altitude  level  below  50,  000  m,  data  for  50,  000  m  alti¬ 
tude  is  added  by  the  program.  The  added  data  are  taken  from  the  ARDC 
Model  Atmosphere  tables  (reference  2.5).  Entries  for  all  other  altitudes 
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are  determined  by  linear  interpolation  from  the  composite  input  and 
Model  Atmosphere  tables. 

If  an  input  table  is  encountered  with  256  entries,  the  program  checks 
(after  scaling)  to  determine  whether  the  first  and  last  entries  are  at 
-1000  and  50,000  m.  If  they  are  not,  an  error  indication  is  printed  and 
the  run  is  terminated,  if  the  table  boundaries  are  satisfactory,  the  pro¬ 
gram  then  checks  to  determine  whether  the  altitude  entries  are  at  inter¬ 
vals  of  200  m.  If  they  are  not,  table  entries  are  determined  by  interpola¬ 
tion  as  for  other  tables.  For  all  tables,  each  altitude  entry  is  checked  as 
it  is  read  to  determine  if  it  is  for  a  level  above  that  of  the  previous  entry. 

If  not,  an  error  indication  is  printed  and  the  run  is  terminated.  Peripheral 
storage  unit  IRISE  is  used  for  temporary  storage  if  the  input  data  deck 
must  be  expanded.  Additional  details  are  presented  in  the  User  Information 
section. 

SUBROUTINE  CRM  (FC-2.  3) 

Subroutine  CRM  is  the  executive  program  for  performing  the  cloud 
vise  simulations  according  to  the  mathematical  models  described  in  Part 
1.  On  entrance  from  LINK2,  the  program  initializes  via  a  call  to  sub¬ 
routine  CPV.  In  CPV,  initial  values  of  certain  computation  control  para¬ 
meters  are  set  and  initial  values  of  various  parameters  used  in  computing 
the  differential  equations  ar<-  computed.  After  initialization,  CRM  prints 
the  fraction  of  the  total  explosion  energy  yield  in  the  cloud  at  the  beginning 
of  the  cloud  rise. 

The  calculation  then  enters  the  iterative  portion  of  the  program  where 
the  cloud  rise  and  expansion  are  computed  by  numerical  integration  of  the 
basic  differential  equations  over  successive  small  time  steps.  Computa¬ 
tion  flow  is  shown  in  FC-2.  3  which,  in  conjunction  with  the  discussion  of 
control  parameters  below,  provides  an  ample  description  of  the  program. 

Routing  through  the  program  is  rather  complex  and  is  determined  by 
a  number  of  control  parameters.  These  are  N,  MWYA  and  KCLD.  Their 
functions  arc  as  follows: 
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HI-  S  LORE  Cl  OUD  PROPER  TIES 
K)  THEIR  VAll'ES  BEFORE 
I1IE  1  ASI-  ENTRANCE  TO 
RKC.tl  1  SE  TN  I. 


- & - 

PLACE  CLOUD  VOLUME 
IN  TEMPORARY 
STORAGE 


RKGILI.  PERFORMS  THE 
NUMERICAL  INTEGRATIONS 
OF  THE  CLOUD  DIFFERENTIAL 
EQUATIONS.  DERIV  COMPUTES 
VALUES  FOR  THE  CLOUD 
DIFFERENTIAL  EQUATIONS. 


kCALL  RKGILLy 
(DERIV) 


(b) 


FC-2.  3.  (Cont'd.  )  Subroutine  CRM 


-70- 


ARCON 


N  -  This  parameter  determines  whether  the  "wet"  or  "dr/" 

mode  is  to  ue  used  in  calculating  the  differential  equations 
(see  Part  1)  in  subroutine  DERIV.  N  is  given  an  ir  itial 
value  of  1  in  CPV  On  a  normal  pass  through  the  iterative 
portion  of  CRM,  control  passes  through  subroutine  RSTR, 
where  current  values  of  cloud  properties  are  placed  in 
temporary  storage,  and  on  to  RKGILL,  which  calls  DERIV 
(in  which  the  derivatives  are  calculated),  and  then  per¬ 
forms  the  integrations.  In  DERIV,  the  "dry"  equations 
are  calculated  when  N  is  1  or  3,  and  the  "wet"  equations 
are  calculated  when  N  =  2.  In  CRM  after  exit  from  RKGILL, 
the  water  vapor  pressure  in  the  cloud,  PW,  and  the  satu¬ 
ration  vapor  pressure  of  water  at  the  cloud  temperature, 

ES,  are  calculated.  If  N  =  1,  PW  is  checked  against  ES 
(if  N  is  2  or  3,  this  check  is  bypassed)  and  if  PW  is  found 
to  be  less  than,  or  equal  to,  ES,  N  is  left  unchanged 
everywhere  and  computation  follows  normal  routing.  If 
PW  is  greater  than  ES,  a  special  entrance  is  made  to  RSTR 
in  which  the  cloud  property  values  are  restored  to  their 
values  before  the  last  entrance  to  RKGILL  and  N  is  set  to 
3.  On  exit  from  RSTR,  control  is  immediately  transferred 
back  to  RKGILL  where  the  differential  equation  calcula¬ 
tions  and  integrations  again  are  computed  using  the  "dry" 
equations.  When  N  has  a  value  of  2  or  3,  the  computations 
of  PW  and  ES  in  CRM  are  carried  out  as  before,  but  the 
test  of  PW  against  ES  is  bypassed  and  by  means  of  the 
normal  routing  procedure  control  eventually  passes  to  sub¬ 
routine  DCSN.  In  DCSn  whenever  the  conditions  N  =  3 

and  PW  >  ES  are  encounter  ;d,  N  is  set  to  2.  Control  then 
follows  normal  routing  back  to  PSTR  for  storage  of  current 
cloud  properties  and  then  into  RKGILL.  Now,  however, 
since  N  =  2,  subroutine  DERIV  calculates  the  "wet"  differ¬ 
ential  equations.  In  CRM  new  values  for  PW  and  ES  are 
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computed  and  control  passes  on  to  DCSN.  Now,  with 
N  =  2,  DCSN  checks  PW  against  ES  and  if  PW  <  ES,  N  is 
set  back  to  1.  Otherwise,  it  is  left  alone  and  computation 
with  the  "wet"  equations  continues. 

MWYA  -  An  initial  value  of  1  is  assigned  to  MWYA  in  CPV.  This 
value  is  used  to  signal  the  first  pass  through  subroutine 
CXPN,  which  on  the  first  pass  initializes  for  the  construction 
of  the  cloud  rise  history  tables,  CX,  and  for  the  R  RATE 
shutoff  switch  (see  p.  49  ).  After  this  initialization,  CXPN 
sets  MWYA  to  2  and  this  value  is  maintained  until  one  of 
the  six  cloud  rise  shutoff  switches  (in  subroutines  CXPN, 

DCSN,  and  CPFR)  is  thrown.  Then  MWYA  is  given  the 
value  3,  and  this  value  causes  the  cloud  rise  calculations  to 
terminate  via  transfer  to  subroutine  CRMW  which  prints  the 
CX  tables. 

KCLD  -  This  is  the  CRM  debug  printout  control  parameter.  An  in¬ 
put  value  of  0  for  KCLD  causes  the  CRM  debug  printouts  to 
be  bypassed.  An  input  value  of  1  results  in  transfer  of  con¬ 
trol  to  subroutine  DBG  on  each  pass  through  the  iterative 
portion  of  CRM.  Subroutine  DBG  prints  out  extensive  tables 
of  intermediate  cloud  properties  at  selected  intervals  during 
the  cloud  rise  calculations.  Also  printed  (in  DCSN)  are 
comments  to  indicate  when  the  calculations  switch  to  "wet  ' 
or  to  "dry"  (see  discussion  of  control  parameter  N  above). 

SUBROUTINE  RSXP  (FC-2.4) 

Subroutine  RSXP  prepares  particle  inputs  for  use  by  the  Cloud  Rise- 
Transport  Interface  Module.  The  methods  and  geometric  constructs  used 
by  this  program  are  discussed  in  considerable  detail  beginning  on  p.  51 
and  the  reader  should  study  those  discussions  before  he  attempts  to  under¬ 
stand  the  operation  of  the  computer  program. 

The  program  begins  with  an  initialization  that  computes  initial  altitudes  for 
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FC-2.4,  Subroutine  RSXP 
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WAFER  TOP 
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or  bottom 
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FC-2.4.  (Cont'd.  )  Subroutine  HSXP 
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(c) 

FC-2.4.  (Cont'd.  )  Subroutine  RSXP 


A«corsi 


(e) 


SET  UP  THE 
OUST  ARB  A', 
TOR  THE  CASE 

•w 


FC-t.  4.  (Cont1  d.  )  Subroutine  RSXP 
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SET  UP  GDPST 
ARRAY  FOR  A 
'A' AKER  THAT  IS 
LOT  SUBDIVIDED 
IN  I  HE  HORIZONTAL 


COUNT  THI  NUMBER  OF 
HORIZONTAt  SI  HOI V  ISIONS 
ro  BE  MADE  COMPUTE 
THE.  FALl.GUI  MASS  PER 
SUBDIVISION 


SE  I  U|*  rill  GDI'S  T 
ARRAS  FOR  FOUR  SUBDIVISION 
ONE  FOR  EACH 
QUADR  ANT 


/  is 

<f  ARRAY  C.DI'SI i 
Eli  I  ED  '  y 


WRITE  THE  BLOCK  COUNT 
OF  THE  GDPSD  ARRAY  ON 
TAPE  [RISE  FOLLOWED  BY 
THE  BI  OCK  OF  GDPSD  DATA 


IMTIA1  I /  E  ,  OR 
DEE  INITIOS.  Of  ill! 
NEXT  SET  OE  Sr  HDD  ISIO* 


has 

r»<»  WAI  ER 
BEEN  COMPI  Em  « 
UHDIVIDtn  y 


FC-2. 4.  (Cont  r|.  )  Subroutine  RSXF 


E 


GO  TO 

THE  BEGINN1N 
OF  THE  MIDDLE 
LOOP 


/  HAS  \ 
'THE  COM  PI  ETE  SET 
OF  WAFEHS  BEEN 
V  PASSED  FOB  THIS  > 
NPARTIC1  E  SIZE/' 
\  CLASS-  / 


RETURN! 

ro 

U1NK*  I 


CO  TO 

THE  BEGINNING 
OF  THE  OUTER 
LOOP 


/  HAS  \ 

'  THE  COMPLETE  > 
SET  OF  PARTICLE  SIZI 
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\  PASSED’*  / 


[LOAD  THE  FINAL  BLOCK  OF  GDPSD 
DATA  ON  TAPE  1RISE  WRITE  A 
TERMINAL  ZEHO  BLOCK  COUNT  ON 
JRISE.  END  FILE  IRISE. 


FC-2.  4.  (Cont'rl.  )  Subroutine  RSXP 
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the  cloud  subdivisions  (wafers),  array  DPSTZ,  and  the  so-called  in-cloud 
and  be  low-cloud  lift  factors,  array  DPX,  for  each  time  entry  in  the  CX 
tables.  These  lift  factors  are  respectively  (u>p  -  Ug)/(zj  -  Zg)  and  Ug/ 
<Zp  -  /q y),  as  defined  in  equations  (2.20)  and  (2.21).  The  program 
sections  the  cloud  into  KDI  wafers  for  each  size  class,  where  KDI  is  an 
inttger  input  to  subroutine  ICRD.  If  KDI  has  not  been  specified,  it  is 
given  a  value  as  specified  on  p.  52  .  Also  the  initialization  includes; 
write-out  of  the  header  on  the  Cloud  Rise  Module  output  peripherial 
storage  unit  IRISE,  computation  of  BZ  (see  equation  (2.22)),  and  compu¬ 
tation  of  in-cloud  air  viscosities  for  each  time  in  the  CX  table  via 
Sutherland's  equation  (equation  (2.23)). 

The  main  calculations  in  the  program  are  contained  in  three  nested 
loops  that  iterate  over  the  following  quantities: 


Loop 

Iterative  Quantity 

outer 

particle  size  classes 

middle 

cloud  wafers 

inner 

the  cloud  history  array  CX. 

The  outer  loop  simply  passes  through  the  particle  size  class  table. 

At  the  beginning  of  the  middle  loop,  a  parameter  MBT  is  computed  to  have 
a  value  of  1  or  2  depending  on  whether  a  wafer  top  or  oottom  (respectively) 
is  being  considered.  Next,  the  DPST  array,  which  is  for  intermediate 
storage  of  fallout  parcel  properties,  is  initialized  in  preparation  for  enter¬ 
ing  the  inner  loop. 

Inside  the  inner  loop,  the  cloud  rise  history  array,  CX,  is  passed 
and  at  each  entry  the  net  vertical  motion  of  the  particle  is  computed  and 
the  altitude  of  the  wafer  top  or  bottom  is  adjusted  accordingly.  If  the  wafer 
top  or  bottom  fails  through  the  bottom  of  the  cloud,  its  radius  is  set  equal 
to  the  cloud  cap  radius  at  the  time  of  its  fallout.  The  motion  of  all  wafers 
is  computed  for  the  full  time  covered  by  the  CX  tables  with  the  exception 
that  if  a  wafer  top  or  bottom  reaches  ground  zero,  the  calculation  is  termin¬ 
ated  for  that  wafer  part  at  that  time. 
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The  inner  loop  exits  back  into  the  middle  loop  where  the  wafer  is  sub¬ 
divided  further  if  required.  If  a  wafer  top  and  bottom  pair  are  founo  to 
have  equal  radii,  no  further  subdividing  is  done  in  the  vertical  and  control 
passes  to  the  portion  of  the  code  that  loads  the  GDPST  array  in  prepara¬ 
tion  for  the  output.  If  a  wafer  top  and  bottom  pair  are  found  to  have  differ¬ 
ent  radii,  then  the  wafer  is  subdivided  further  in  the  vertical  as  described 
on  pp.  52  ff.  An  array  PPST  is  used  to  store  the  basic  wafer  data  for  all 
vertical  subdivisions.  Then  array  DPST  is  filled  from  the  PPST  array  for 
each  vertical  wafer  subdivision  in  its  turn,  as  control  is  alternated  between 
this  portion  of  the  code  and  the  portion  that  loads  the  GDPST  array. 

At  the  end  of  the  middle  loop  is  the  code  that  loads  the  GDPST  array. 
This  is  the  fallout  parcel  data  array  from  which  the  output  is  taken.  If 
the  input  parameter  IRAD  is  zero,  no  subdividing  of  wafers  in  the  horizon¬ 
tal  plane  is  requested.  In  this  case,  the  parcel  data  are  loaded  directly 
into  the  GDPST  array.  If  IRAD  >  0,  a  test  is  made  to  determine  if  the 
wafer  radius  is  less  than  the  diagonal  of  a  square  of  edge  BZ/2.  If  the 
test  is  affirmative,  no  horizontal  subdividing  is  done  and  the  GDPST  array 
is  loaded.  If  the  test  is  negative,  a  computation  is  done  to  determine  the 
number  of  horizontal  subdivisions  that  are  to  be  made.  Using  this  number, 
the  wafer  mass  and  volume  are  apportioned  equally  among  the  subdivisions. 
Next,  the  subdividing  is  done  and  the  GDPST  array  is  loaded  with  the  parrel 
data.  Details  of  the  horizontal  wafer  subdividing  are  discussed  beginning  on 
p.  56  ,  Whenever  the  array  GDPST  is  filled,  it  is  written  on  the  binary 
output  unit  IRISE  preceded  by  the  count  of  parcels  in  the  data  block. 

When  all  wafers  for  a  particle  size  class  are  treated,  the  middle  loop 
exits  to  the  outer  loop  for  incrementation  of  the  size  class  counter;  when 
all  size  classes  are  treated,  a  zero  block  count  is  written  on  unit  IRISE 
followed  by  an  end-of-file,  anr  then  control  is  returned  to  subroutine  LINK2. 

USER  INFORMATION 


GENERAL 

The  DELFIC  system  of  computer  codes  has  been  written  to  operate  on 
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the  UNIVAC  1108  computer  under  control  of  either  the  EXEC -2  or 
EXEC -8  Monitor  Systems.  It  also  is  operational  on  the  IBM  360/75  computer. 

INPUT  DESCRIPTION 

Input  to  the  Cloud  Rise  Module  is  of  two  categories: 


1.  Inputs  from  LINK1,  the  Initial  Conditions  Module 
(DASA - 1800-11  and  its  revisions),  and  M4,  the 
DELFIC  system  executive  program  (DASA-1800- 
VII  and  its  revisions),  via  COMMON/SET1/. 

2.  Card  inputs  via  the  operating  system  input  unit. 


COMMON /SET  1 /Inputs 

COMMON /SET  1/  is  defined  in  the  LINK2  FORTRAN  listing  (see 
p.  102).  Each  of  the  quantities  in  this  set,  is  described  in  Table  2.2. 


TABLE  2.2 

CONTENTS  OF  THE  CLOUD  RISE  MODULE  COMMON/SET  1/ 


Mnemonic 

and 

Dimension 

Description 

Units 

Source 

CAY 

Coefficient  of  the  frequency  function 
for  the  power  law  particle  size  fre¬ 
quency  distribution. 

LINK1  • 

1 

DETID(  12 ) 

Hollerith  identification  of  the  initial 
conditions  calculation. 

LINK  1 

DIAM(201) 

Upper  boundary  of  each  particle  size 
class.  The  last  entry  in  the  DLAM 
array  is  the  lower  boundary  of  the 
last  (smallest)  particle  size  class. 

The  length  of  the  DLAM  array  is  al¬ 
ways  one  greater  than  the  number 
of  size  classes. 

Micro¬ 

meters 

LINK1 

DMEAN 

Median  diameter  of  a  lognormal 
particle  size  distribution. 

Micro- 
mete  rs 

LINK1 

DNS 

Fallout  particle  density. 

,  3 

gm/cm 

LINKlj 
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TABLE  2.  2  (Cont'd. ) 

CONTENTS  OF  THE  CLOUD  WISE  MODULE  COMMON /SET  J/ 


Mnemonic 

and 

Dimension 

Description 

Units 

Source 

EXPO 

Exponent  of  the  frequency  function 
for  the  power  law  particle  size  fre¬ 
quency  distribution. 

LINK1 

FMASS(200) 

Fractions  of  total  particle  mass  in 
the  particle  size  classes. 

LINK  1 

1DISTR 

Particle  size  distribution  type 
specification  index: 

1.  lognormal 

2.  power  law 

3.  arbitrary  tabular 

LINK  1 

1EXEC 

An  index  used  by  the  Transport  Module 
(DASA-  1800-1V)  to  control  routing  by 
the  DELITC  system  executive  program 
M4  during  transport. 

i 

I  RISE 

Log ical  number  of  the  Cloud  Rise 
Module  binary  output  unit. 

M4 

ISIN 

Logical  number  of  the  operating 
system  input  unit. 

M4 

1SOIJT 

Logical  number  of  the  operating 
system  output  unit. 

M4 

NDSTR 

Number  of  entries  in  the  particle  si/.e- 
mass  frequency  array  FMAStt. 

LINK  1 

PS(  200) 

Particle  si/.e  class  «  cntral  particle 
diameters. 

Meiers 

LINK1 

SD 

Geometric  standard  tin  iation,  .*•,  of 
the  lognormal  particle- ai  >e  •  ii h l  ■  « 
billion. 

dimension¬ 

less 

UWK1  j 

j 

SSA  M 

Mass  of  condensed  phase  material 
in  the  cloud  at  the  initial  time. 

ki  1#  *t»  r.MMii 

LINKI 

t 
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TABLE  2.  2  (Cont'd.  ) 

CONTENTS  OF  THE  CLOUD  RISE  MODULE  COMMON/SET  1/ 


Mnemonic 

and 

Dimension 

Description 

Units 

Source 

TME 

Time  relative  to  burst  time  of  the 
initial  conditions  specification. 

seconds 

LINK  1 

TMP1 

Average  temperature  of  gaseous 
matter  in  the  cloud  at  the  initial 
time. 

degrees 

Kelvin 

LINK1 

TMP2 

Average  temperature  of  condensed 
phase  material  in  the  cloud  at  the 
initial  time. 

degrees 

Kelvin 

LINK1 

PHI,  T2M 

Fraction  of  available  energy  used  to 
heat  air. 

ICRD 

USOIL 

Soil  Class  Indicator: 

1.  siliceous 

2.  calcareous 

LINK  1 

VPR 

Mass  of  vaporized  soil  material  in 
the  cloud  at  the  initial  time. 

kilograms 

LINK  1 

W 

Total  energy  yield  of  the  explosion. 

Vilotons 
equivalent 
of  TNT 

LINK  1 

HEIGHT 

Height  of  burst  above  ground  zero. 

meters 

LINK  1 

ZSCL 

Scaled  height  of  burst  relative  to 
ground  ze ro. 

ft/(kT)1/3,4 

_ 

LINK  1 

NHODO 

Number  of  entries  in  wind  data  table. 

LINK  1 

_ 1  - 

ZV(200) 

Altitudes  of  center  planes  of  the  wind 
strata. 

meters 

LINK  1 

VX(  200) 

X-components  of  wind  velocities  in 
the  wind  strata. 

m/sec  LINK  1 

i 

1 

VY(200) 

Y-components  of  wind  velocities  in 
the  wind  strata. 

— 

m/sec 

i 

LINK  1 

ARGON 


< 

Card  Inputs 

The  card  input  to  the  Cloud  Rise  Module  is  read  by  subroutine  ICRD 
and  ATMR.  Data  other  than  the  control  parameters  and  the  atmosphere 
data  need  no  explanation  in  addition  to  that  provided  in  Table  2.  3.  The 
control  and  atmosphere  data,  on  the  other  hand,  are  given  special  atten¬ 
tion  below. 


Control  Data: 


KDI 


IRAD 


KCLD 


KRX 


IP  AM 


This  is  the  number  of  wafer  subdivisions  for  each 
particle  size  class  (see  Figure  2.  2).  It  has  no  upper 
limit.  If  its  input  value  is  zero,  it  is  calculated  in 
subroutine  RSXP  (see  p.  51  ). 

This  is  the  wafer  radius  division  factor  to  be  used  in 
subdividing  the  cloud  wafers  in  the  horizontal  plane. 
(See  Figure  2.  3.  ).  It  has  no  upper  limit.*  If  its  in¬ 
put  value  is  zero,  the  cloud  is  not  subdivided  hori¬ 
zontally. 

This  controls  the  CRM  debug  printout.  If  the  debug 
printout  is  requested,  a  detailed  printing  of  cloud 
and  particle  properties  is  executed  at  intervals 
during  the  CRM  calculations  (see  the  discussion  of 
outputs  below). 

0  debug  printout  is  not  requested 
1  debug  printout  i£  requested 

This  controls  the  RSXP  debug  printouts.  The  RSXP 
debug  printout  describes  each  "wafer"  (see  p.  51-55) 
output  by  the  RSXP  calculations  (see  the  discussion 
of  outputs  below). 

0  debug  printout  is  n>  t  requested 
1  debug  printout  ij*  quested 

This  parameter  controls  entrance  to,  or  bypass  of, 
subroutine  PAM,  In  this  version  of  DELFIC,  PAM 
is  a  dummy  subroutine  and  IPAM  is  always  zero. 


Careful  attention  should  be  given  to  this  parameter.  A  large  value  can 
cause  a  very  large  amount  of  transport  computer  time  to  be  required.  Since 
almost  always  winds  vary  only  gradually  in  the  horizontal,  and  since  rarely 
are  there  sufficient  wind  data  available  to  provide  fine  resolution  of  the 
horizontal  winds,  then  it  is  unlikely  that  use  of  a  large  value  of  IRAD  can 
be  justified. 
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TABLE  2.  3 

A  SUMMARY  OF  CARD  INPUTS  TO  THE  CLOUD  RISE  MODULE 


Ca  rd 
Numbe  r 

Contents 

Variable  Names 
and  FORMAT 

1 

Cloud  Rise  Run  idr  _ativ 

DNID(J)(  1 2A6) 

2 

Control  indices: 

KDI  -  number  of  wafers  per 
size  class 

IRAD  -  wafer  subdivision  factor 

KCLD  -  CRM  debug  print  control 

0  do  not  print 

1  print 

KRX  -  RSXP  debug  print 
control 

0  (i  jc  pr^nt 

i  print 

IPAM  -  always  given  a  value  of 
ze  ro 

KATM  -  atmosphere  printout 
control 

0  do  not  print 

1  print. 

KDI,  IRAD, 

KCLD,  KRX,  IPAM,  KATM 
(614) 

3 

Elevation  of  ground  zero  (m  above 
msl). 

ZB RSTZ( E 1  2.  5) 

4 

Soil  solidification  temperature  (°K) 

SLDTMP(E  1  2.  5) 

5 

Fission  yield  ( kT) 

FW(E12.  5) 

6 

Fraction  of  energy  available  in  the 
cloud  used  to  heat  air  (including 
ambient  water  vapor).  The  remain¬ 
der  is  used  to  heat  liquid  water. 

PHI(E  1 2.  5) 

7 

Atmosphere  identification. 

ATID(  J)(  1 2A6) 

8 

FORMAT  for  atmosphere  data  cards. 

FMT(J)(  1 2A6) 

9,  10 

Atmosphere  data  scale-transforma¬ 
tion  parameters. 

SCALE(J)(7F10.  5/3F10.  5) 

11 

Atmosphere  data  sequencing  indices. 

Nl,  N2,  N3,  N4,  N5,  N6, 
N7,  N 8  (814) 

12 

Number  of  altitude  levels  in  the  in¬ 
put  atmosphere  tables. 

NPVA(I4) 

13 

Atmosphere  data  cards  in  sequence 
of  increasing  altitude  (see  Table 

2.4). 

ALT(J),  ATP(J),  PRS(J), 
RHZ(J),  RLH(J),  ETA(J), 

GR  V(J),  SLM(J),  J  =  1 , 

NP  VA(  FMT(I),  1=1,  12) 

(see  card  8) 
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KATM  -  This  controls  printout  of  the  atmosphere  data  table. 

If  the  output  is  requested,  the  quantities,  as  labeled 
and  described  in  Table  2.  4,  are  printed  for  all  2 Oh 
altitude  intervals. 

0  atmosphere  data  table  is  not  requested 
1  atmosphere  data  table  is  requested 


Atmosphere  Data 

Subroutine  ATMR  has  been  written  to  provide  the  utmost  in  flexibility 
regarding  input  of  tables  of  atmospheric  properties.  The  few  restrictions 
on  the  form  and  format  of  presentation  of  the  data  to  the  program  are  dis¬ 
cussed  in  the  description  of  program  ATMR  (p.  64  ).  To  provide  this  flexi¬ 
bility  it  is  necessary  to  require  a  set  of  additional  inputs  that  are  some¬ 
what  complex.  The  user  is  cautioned  to  employ  unusual  care  in  the  prepar¬ 
ation  of  these  inputs  and  to  study  carefully  the  tables  of  atmospheric  prop¬ 
erties  printed  out  by  subroutine  ICRD  to  ensure  that  the  quantities  displayed 
are  precisely  as  required  by  the  Cloud  Rise  Module  calculations.  The 
additional  inputs  referred  to  above  are: 

1.  An  object-time  FORMAT  for  use  in  reading  the 
atmosphere  data  cards. 

2.  A  list  of  terms  and  factors  to  be  used  to  trans¬ 
form  the  input  data  to  the  proper  units. 

3.  A  list  of  sequencing  numbers  that  tells  the  pro¬ 
gram  the  order  in  which  specific  data  quantities 
are  punched  across  the  input  cards. 

Object-time  FORMAT  specification  is  a  standard  FORTRAN  function  and 
the  user  should  refer  to  his  FORTRAN  coding  manual  for  details. 

The  lists  of  adjustment  factors  and  sequencing  numbers  arc  closely 
related,  hirst  we  discuss  the  sequencing  numbers.  As  mted  in  Table  2.  3 
(card  11),  there  are  eight  sequencing  numbers  punchea  mi  a  card  according 
to  FORMAT  (814).  Each  oi  the  M  fields  always  is  associated  with  a  parti¬ 
cular  one  of  the  eight  atmospheric  properties  required  by  the  program; 
this  association  is  given  in  Table  2.4.  The  numbers  punched  in  these  fields 
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TABLE  2.  4 

CORRESPONDENCE  OF  SEQUENCE  CARD  FIELDS 
WITH  ATMOSPHERIC  DATA 


Field 

Number 

Card 
Column 
Numbe  rs 

Datum 

Mnemonic 

1 

Datum  Quantity 

Units  Required 
by  the 

Calculations 

1 

1-  4 

ALT 

altitude  above  msl 

m 

2 

5-  8 

ATP 

tempo  rature 

c  K 

3 

9-12 

PRS 

pressure 

:r.b 

4 

13-16 

RHZ 

density 

kg/m3 

5 

17-20 

RLH 

relative  humidity 

% 

6 

21-24 

ETA 

viscosity 

kg  /(m-sec) 

7 

25-28 

GRV 

acceleration  of  gravity 

/  2 
m/sec 

8 

29-32 

SLM 

mean  free  path 

- . 

m  | 

range  in  value  from  1  through  8.  F'or  a  particular  field,  for  example,  the 
density  field,  the  number  punched  gives  the  actual  read-in  sequence  number 
for  density.  That  is,  if  a  3  is  punched  in  the  density  field  of  the  sequence 
card,  this  specifies  that  density  will  occupy  the  third  field  from  the  left  (as 
defined  by  the  object-time  FORMAT  card)  on  the  data  input  card.  Suppose 
our  data  input  card  has  the  following  appearance; 


Column 

Number 

1 

4  16 

28 

Numer¬ 

ical 

Content 

A 

i 

i 

1 

1 

1  i 

i  i 

1  1 

10  225.171  , 

1  1 

1  t 

0.  414142  t 

1 - 

I 

i 

3  0.  35 

i 

i 

Data 

1 

i  Altitude 

1  Temperature  I 

Density 

i 

i  Relative  Humidity 

Speci¬ 

fied 

i 

i 

1 

1  1 

1  . 

i  i 

I 

1 

Units 

1  km 

.  °K  , 

' 

R  /m  3 

1  Fractional 

i 

40 

”7 

I 

I 

i 

I 

i 

i 

i 

i 

i 

i 
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A  suitable  FORMAT  would  be 


(F4.0,  3E12.6,  4 FI .  1)  . 


A  suitable  sequencing  card  would  be 


Column 

Number 

Sequence 

Number 

Datum 

Repre¬ 

sented 


A 


8 

T 

i 

1 

2 


ALT  I  ATP  '  PRS 


i 


12 

r  ■ 


16 

T 


20 


24 

—r 


28 


32 


RHZ 


RLH 


I 

6 

i 

l 

i 

ETA  1  GRV 


i 

7 


SLM 


>  Note  that  quantities  not  specified  by  input  still  must  be  provided  for  both  in 
the  FORMAT  and  on  the  sequence  cards.  Thus,  such  quantities  are  read  in 
as  zero  which  indicates  that  they  are  to  be  supplied  by  the  program." 

A*  with  the  sequencing  numbers,  the  fields  on  the  scale  cards  (two 
scale  cards  are  input)  always  correspond  to  specific  data  quantities.  The 
numbers  punched  in  the  scale  cards  are  used  to  transform  the  input  data  to 
the  units  specified  in  Table  2.4.  The  transformations  are  pertormed  as 
follows: 


ALT(I)  = 
ATP(I)  = 
PRS(I)  = 
RHZ(I)  = 
RLH(I)  = 


(ALT(I)  +  SCALE(l))  *  SCALE(3) 
(ATP(I)  +  SCALE(2))  *  SCALE(4) 
PRS(I)  *  SCALE( 5) 

RHZ(I)  *  SCALE(6) 

RLH(I)  *  SCALE(7) 


The  program  must  have  altitude,  temperature,  relative  humidity  and 
either  one  of  density  or  pressure.  Though  not  required,  any  or  all  of 
the  other  quantities  can  be  supplied,  in  which  case  they  are  not  calculated 
by  the  orogram. 
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ETA(I)  =  ETA(I)  *  SCALE(  8) 

GRV(I)  =  GRV(I)  *  SCALE(9) 

SLM(l)  =  SLM(I)  *  SCALE(IO) 

SCALE  array  entries  3  through  10  are  replaced  with  1.  0  if  they  are  read 
in  as  zero.  If  no  transformations  are  required,  blank  cards  can  be  used 
for  the  scale  cards.  For  the  input  data  example  shown  on  p.  90  the 
following  scale  cards  would  be  required: 


Card  1 


Column 

Numbers 

10 

20  30 

40 

50 

60 

70 

1 

1 

i  ! 

!  i 

1 

1 

— r  ■ 1 

i 

1 

- r 

i 

Content  i 

1 

1 

1 

1 

1 

1 

1 

1 

1 

» 

1 

1 

!  1000.  | 

1 

»  ' 

1  1 

1  • 

1  1 

'  i 

1 

1 

1 

1 

I 

1 

1 

i 

i 

i 

i 

i 

» 

i 

i 

-  fO - -  “ 

1 

o 

100.  1 

1 

1 

1 

1 

1 

I 

Card  ?. 


blank 


The  atmosphere  data  cards  must  conform  to  the  object-time  FORMAT 
specified  by  the  user  and  they  must  be  ordered  in  sequence  of  increasing 
altitude.  The  altitude  increments  between  cards  are  arbitrary,  however, 
and  there  are  no  restrictions  on  the  specific  altitudes  supplied  by  input 
other  than  that  they  should  lie  in  the  range  -1,000  to  50,000m  relative  to  mean 
sea  level.  The  program  automatically  will  build  tables  of  256  entries  each 
of  atmosphe  rir  prope  rtie  s  in  the  range  of  altitude  from  -1,000  through 
50,000  (relative  to  msl)  at  intervals  of  200m. 
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OUTPUT  DESCRIPTION 

The  output  is  of  two  kinds:  (1)  printed,  and  (2)  binary  on  a  peripheral 
storage  unit  for  use  by  subsequent  modules. 

Printed  Output 

The  normal  printed  output  is  designed  to  be  self  explanatory  and  thus 
needs  little  description  here.  It  is  displayed  in  a  later  section  titled 
"Sample  Problem  and  Printout.  "  Notice  that  the  atmosphere  table  headings 
use  the  FORTRAN  mnemonics  ao  described  in  Table  2.  4.  Units  for  the  at¬ 
mosphere  table  quantities  are  as  given  in  Table  2.4. 

CRM  Debug  Printout.  Tne  debug  outputs  are  completely  labeled  with 
their  FORTRAN  mnemonics.  The  quantities  printed  are  as  follows: 

ST  Time 

U  cloud  rise  velo  jity 

X  Water  vapor  mixing  ratio 

T  cloud  temperature 

R  horizontal  cloud  radius 

Z  cloud  center  altitude 

EK  turbulent  kinetic  energy  density 

V  cloud  volume 

WT  total  water  mixing  ratio 

TE  ambient  temperature 

RM  cloud  mass 

ES  saturation  vapor  pressure  of  water  in  the  cloud 
P  ambient  pressure 

PW  water  vapor  pressure  in  the  cloud 
ED  loss  rate  of  eddy  viscous  kinetic  energy 
RLH  ambient  relative  humidity 

S  condensed  matter  mixing  ratio 

EPS  kinetic  energy  density  loss  rate 

RZT  vertical  cloud  radius 

CMLR  total  (for  all  size  classes)  fallout  loss  rate 
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Also  printed  are  statements  indicating  switch-over  from  dry-mode  to  wet¬ 
mode  and  vice  versa. 


RSXP  Debug  Printout.  This  printout  gives  properties  of  the  cloud 
wafers  (see  Figure  2.1)  before  they  are  sectioned  in  the  horizontal 
plane.  The  printout  column  headings  are  defined  as  follows: 

TIM  time  (sec) 

ALT  altitude  of  wafer  center  of  mass  (m  above  msl) 

RAD  radius  (m) 

DLAM  particle  size  class  midrange  diameter  (nm) 

MASS  total  particulate  mass  in  the  wafer  (kg) 

DZ  wafer  thickness  (m) 

ZLOW  wafer  bottom  altitude  (m  above  msl) 

3 

VOL  wafer  volume  (m  ) 

MBT  (always  =1)  signifies  that  both  wafer  top  and 

bottom  have  been  processed 

IFLAG  a  parameter  that  signifies  whether  a  wafer  is 

part  of  the  cloud  cap  or  stem.  If  it  is  totally 
or  partially  in  the  stem,  further  vertically 
subdivided  wafers  are  printed  out  next. 

IFLAG  =  l  no  further  subdivision  required 
IFLAG  =  2  further  subdivision  required. 


Binary  Output 


A  binary  output  onto  a  peripheral  storage  unit,  logical  designation 
IRISE,  is  written  in  subroutine  RSXP  to  communicate  data  to  the  Cloud 
Rise  Transport  Interface  Module.  The  content  of  this  unit  is  described 
in  Table  2.  5.  Units  for  quantities  specified  are  rnks  except  where 
noted  otherwise.  Note  that  unit  IRISE  also  is  used  in  ATMR  for  tempo¬ 
rary  storage  in  case  the  input  atmospheric  property  tables  must  be  ex¬ 
panded  (see  p.  64  ff.  ). 
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TABLE  2.  5 

CONTENT  OF  CLOUD  RISE  MODULE 
BINARY  OUTPUT 


Record 

Number 

Content 

Variable  Names 

1 

Cloud  Rise  Module  output  tape  iden¬ 
tifier  symbol,  ’RISE. 

DENT 

2 

Fission  yield  (xT),  cloud  soil  bur¬ 
den,  temperature  of  soil  solidifi¬ 
cation,  time  of  soil  solidification, 
geometric  standard  deviation  of  the 
(log-normal)  particle -diameter 
volume -frequency  distribution, 
total  yield  (kT),  height  of  burst 
above  GZ,  base  edge  length  of  a 
basic  cloud  subdivision,  fallout 
particle  density,  wafer  horizontal 
subdivision  factor,  maximum  cloud 
radius,  elevation  of  ground  zero. 

FW,  SSAM,  SLDTMP,  TMSD, 
SD,  W,  HEIGHT,  BZ,  RFD, 
1RAD,  CX(5,  MCX), 

ZBRSTZ 

3 

Cloud  Rise  Module  run  identifica¬ 
tion. 

DNID(J).  J  =  1,  12 

4 

Initial  Conditions  Module  run  iden¬ 
tification. 

DETID(J),  J-l,  12 

5 

Number  of  particle  size  classes. 

NDSTR 

6 

Tables  of  central  particle  diam¬ 
eter,  volume  (mass)  fraction, 
upper  boundary  diameter 
for  the  particle  size  classes. 

PS(J  ),  FMASS(J  ),  DIAM(J), 

J  -  1 , NDSTR 

7 

Number  of  vertical  water  subdi¬ 
visions  per  particle  size  class. 

KDPST 

8 

Number  of  altitude  levels  in  the 
atmosphere  tables. 

NPVA  (-.256) 

9 

Atmosphere  altitude,  viscosity 
and  density  tables. 

ALT(J),  ETA(J),  RHZ(J), 

J  1 , NPVA 

10 

Number  of  time  entries  in  the 
cloud  rice  history  tables,  CX. 

MCX 

11 

Tables  of  cloud  bottom  height,  top 
height,  time,  bottom  velocity,  and 
top  velocity. 

CX(3,J),CX(4,J),CX(1,J) 
CX(6,  J),CX(7,J),  J-l, 

MCX 

12 

Number  of  entries  in  wind  data 
table. 

NHODO 

13 

Wind  stratum  center  altitude, 
x-component  of  wind  velocity, 
y -component  of  wind  velocity. 

(Th.  record  is  omitted  if  NHODO 
=  0) 

ZV(J),  VX(J),  VY(J),  J=l, 
NHODO 
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TABLE  2.  5  {Cont'd.  ) 

CONTENT  OF  CLOUD  RISE  MODULE 
BINARY  OUTPUT 


Record 

Number 

Content 

Variable  Names 

14 

Block  count  of  cloud  subdivisions  , 

LODD 

15 

Block  of  cloud  subdivision  proper- 

GDPST(I,  J), 

ties-  x  and  y  coordinates  of  center 

I  =  1,  10, 

of  mass  relative  to  ground  zero, 
time  relative  io  detonation,  central 
particle  diameter,  mass  of  fallout, 
altitude  of  center  of  mass  above 
msl,  cloud  subdivision  radius  at 
the  center  of  mau^,  c’oud  subdivision 
thickness,  altitude  of  toe  subdivision 
bottom  above  msl,  volume  of  the 
subdivision. 

J  r  1,  LODD 

16 

Block  count  . 

LODD 

17 

Block  of  cloud  subdivision  properties. 

GDPST(I,  J), 

I  =  l,  io, 

• 

J  =  1,  LODD 

N 

Zero  block  count  to  signal  end  of  tape. 

1 

LODD  =  0  | 

-96- 


ARCOW 


FORTRAN  LISTINGS 

The  FORTRAN  listings  are  included  on  pp.  98  through  142.  Note 
that  the  glossary  of  mnemonics  for  all  programs  is  at  the  beginning  of 
subroutine  LINK2  (p.  98  ff.  ). 


LIST  OF  FORTRAN  LISTINGS 


Page 


LINK2 

98 

ATMR 

104 

CPFR 

109 

CPV 

111 

CRM 

113 

CRMW 

115 

CXPN 

1 16 

DBG 

118 

DCSN 

120 

DERIV 

122 

ICRD 

126 

RKGILL 

129 

RSTR 

131 

RSXP 

133 

TRPL 

141 
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SUBROUT  INE  LINK2 


ALT 

AP 

AREAMX 
AT  MR 

ATIO 

ATP 

BARMU 

BZ 

BO 

CO 

CHANGE 

CL 

CMLR 
CP 
CPA  1 
CPFR 

CPV 

CR 

CRM 

CRMW 

CX 


CXPN 

C2 

C3 

C6 

DEK 

DENT 

OERIV 

OETIO 

01AM 


DNlD 

DNS 

DPST 


L1NK2001 
LINK2002 

ARRAY I 260  t  t  ATMOSPHERE  ALTllUDE  IN  METERS  I MSL)  CORRESPOND! NGL I NK2003 
TO  ATP.  ETA.  C.HV#  PRS.  RHZ.  KLH.  SLM  LINK2004 
ARRAY  181.  TEMPORARY  STONAOE  USED  IN  ATMR  LINK2005 
MAXIMUM  PROJECTED  AREA  ON  THE  GROUND  BELOW  STABILIZED  CLOUD  LINK2006 
SUBROUTINE.  HEADS  IN  TABLES  OF  ALT . ATP .ET A t PRS.RH2 .RLH.GRV .  LINK2007 


SLM 

ARRAY  1 121.  72  ALPHANUMERIC  CHARACTERS  FOR 
ATMOSPHERE  I  DENT  I F 1  CAT  1  ON 

ARRAY (260 )  .  ATMOSPHERE  TEMPERATURE  IK)  MATCHES  ALT 
MEDIAN  DIAMETER  OF  THE  LOGNORMAL  PARTICLE  SIZE  VS.  MASS 
DISTRIBUTION 

DEPOSIT  INCREMENT  LINEAR  DIMENSION  1  CXI  5 .MCX I / IRAQI 
PARAMETER  USED' TO  DETERMINE  CLOUD  VERTICAL  RADIUS 
ARRAY  1 200 ) •  FALLING  SPEEDS  OF  PARTICLES  IN  THE  CLOUD 
(M/SEC! 

CLOUD  TIME  AFTER  WHICH  STEP  LENGTH  CHANGES  TO  DST2 
LATENT  HEAT  OF  VAPORIZATION  OF  WATER 

cloud  mass  loss  rate  of  particulate  fallout 

SPECIFIC  HEAT  OF  AIR 

SPECIFIC  HEAT  of  AIR  INTEGRATED  FROM  TE  TO  T 
SUBROUTINE.  COMPUTES  PARTICLE  FALLOUT  RATE  DURING  CLOUD 
RISE  CALCULATIONS 

SUBROUTINE.  COMPUTES  INITIAL  CRM  VARIABLES 

WEIGHTED  AVERAGE  SPECIFIC  HEAT  FOR  AIR  AND  SOIL 

SUBROUTINE.  COMPUTES  CLOUD  RUE  AND  EXPANSION  VARIABLES 

SUBROUTINE.  PRINTS  CRM  OUTPUT 

A.YRAY 1 10 .90 )  .  CLOUD  DIMENSIONS  VS.  TIME 


LINK200B 
LINK20U9 
L INK2010 
LINK2011 
L  INK2012 
.1NK2013 
lINK2014 
w INK2015 
HNK2016 
HNK2017 
L INK201S 
LINK2019 
L INK2020 
LINK2021 
LINK202? 
UNK2023 
LINK2024 
LINR202S 
LINK2026 
L1NK2027 
L INK202I 
L I NK2029 
L INK2030 
L INK2031 
LINK2032 
L1NK2033 
L»NK2034 
LINK2035 
L INK2036 
L INK2037 
LINK203B 
L INK2039 
LINK2040 
LINK2041 
L1NK2042 


II, J)  -  TIME  I  SEC  I  AFTER  BURST 

(2.W.I  -  CLOUD  TIME  INTERVAL!  ..EC)  BEGINNING  AT  CXIltJI 

13.  J)  -  CLOUD  BASEIM)  AT  CXI1,." 

14.  J)  -  CLOUD  TOPIM)  AT  CXU.JI 
(S.JI  -  CLOUD  RAD  I  US  I M )  AT  CXil.J) 

16.  J)  >  C,  OUD  BASE  HATE  IM/SECI  DURING  CXU.JI 

1 7.  J )  -  CLOUD  TOP  RATE  IM/SEC)  DUHING  CXI2.J) 

1 8 .  J I  -  CLOUD  RADIAL  RATEIM/SEC)  DURING  CXI2.J) 

1 9 • J I  -  CLOUD  TEMPERATURE  IK)  AT  CXil.J) 

(10. J)  -  IN-CLOUO  GAS  DENSITY  (KG/M**3|  AT  CXil.J) 

SUBROUTINE.  TABULATES  CX  ARRAY 

CONSTANT  USED  IN  EDDY  VISCOSITY  MOMENTUM  GENERATION 
(YIELD  DEPENDENT) 

CONSTANT  USED  IN  COMPUTING  TURBULENT  ENERGY  DISSIPATION  RATEL INK2043 
CONSTANT  USED  IN  COMPUTING  AIR  ENTRAINMENT  RATE  INTO  CLOUD  LINK2044 
CAUSEO  BY  WIND  SHEAR  LINK204J 

DERIVATIVE  OF  EK  LINK2046 

DATA  STATEMENT  USED  FOR  I  DENT  IF ICAT I  UN  OF  {RISE  TAPE  LINK2047 

SUBROUTINE.  EVALUATES  DERIVATIVES  OF  CLOUD  RISE  VARIABLES  LINK204B 
ARRAY  1121.  72  ALPHANUMERIC  DETONATION  IDENTIFICATION  CARD  LINK2049 
ARRAY  1201).  UPPER  BOUNDARY  OF  l-TH  PARTICLE  SIZE  CLASS.  LINK2050 
THE  LAST  ENTRY  IN  THE  ARRAY  IS  THE  LOWER  BOUNDARY  OF  THE  LINK2051 
LAST  I  SMALLEST  I  PARTICLE  Slit  CLASS.  THE  LENGTH  OF  THE  DIAM  L1NK2052 
ARRAY  IS  ALWAYS  ONE  GREATER  THAN  THE  NUMBER  OF  SIZE  CLASSES. LINK 2093 
ARRAY ( 12).  72  ALPHANUMERIC  RUN  IDENTIFICATION  clNK20' 

FALLOUT  PARTICLE  DENSITY  (GM/CM««3)  LJNK2Q99 

IF  NOT  PUNCHED.  DNS  ■  2.6  LINK2096 

ARRAY  18.2) •  DEPOSIT  INCREMENT  VARIABLES  COMPILED  IN  LINK2097 


98 
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SUBROUTINE  RSXP.  THL  SECOND  INDEX  IS  NEEDED  ONLY  IN  THE  RSXPL1NK20S6 
CALCULATIONS  TO  DISTINGUISH  THE  INCREMENT  TOP  FROM  THE  LINK2059 
INCREMENT  BOTTOM.  LINK2060 
(l.MBT)  -  TIME  (SEC)  OF  ALTITUDE  STABILIZATION  OR  GROUND  I NGL INK2Q61 


DPSTK 

DPX 


DRM 

OS 

OST 

DSTO 

DST1 

OST2 

OT 

OU 

OVBL 

DWT 

DX 

02 

ED 

EX 

EPS 

ERROR 

ES 


F 

FHASS 

FMT 

FROG 

FW 

GOPST 


(l.MBT) 

( 2 . MBT )  -  ALTITUDE  OF  INCREMENT  CENTER  OF  MASS  (METEPS)  LINK2062 
C.MBT)  -  INCREMENT  RADIUS  AT  CENTER  OF  MASS  (METERS)  LINK2Q43 
(A. MBT I  -  MEAN  PARTICLE  DIAMETER  (MICROMETERS)  LINK2044 
I  5 '  MBT I  -  INCREMENT  MASS  (KGM,)  LINK2065 
(6. MBT)  -  INCREMENT  VERTICAL  THICKNESS  (METERS)  LINK2046 
(7. MBT)  -  ALTITUDE  OF  INCREMENT  BOTTOM  (METERS)  L INK2047 
(8. MBT)  -  INCREMENT  VOLUME  (CUBIC  METERS)  LINK2068 
NUMBER  OF  DEPOSIT  INCREMENTS  PER  PARTICLE  SIZE  CLASS  LINK2069 
ARRAY  12.90).  DEPOSIT  INCREMENT  RISE  AND  EXPANSION  VARIABLE  LINK2070 
(1)JI  -  LIFT  RATE  FACTOR  ABOVE  CLOUD  BASE  11/SEC)  LINK2071 
(2.J)  -  LIFT  ((ATE  FACTOR  BELOW  CLOUD  BASE  (1/SEC)  L1NK2072 
DERIVATIVE  OF  KM  LINK2073 
DERIVATIVE  OF  S  LINK2074 
INTEGRATION  TIME  STEP  LINK207S 
INITIAL  INTEGRATION  TIME  STEP  L INK2076 
INTERMEDIATE  INTEGRATION  TIME  STEP  LINK2077 
FINAL  VALUE  OF  INTEGRATION  TIME  STEP  L INK2078 
DERIVATIVE  OF  T  LINX2079 
DERIVATIVE  OF  U  LINK20I0 
ARRAY (81.  USEO  TO  TRANSMIT  VARIABLE  DERIVATIVES  LINK20I1 
DERIVATIVE  OF  WT  L1NK2082 
DERIVATIVE  OF  X  LINK2083 
DERIVATIVE  OF  2  L1NK2084 
EDDY  VISCOSITY  LOSS  RATE  OF  KINETIC  ENERGY  OF  RISE  L1NK208S 
TURBULENT  KINETIC  ENERGY  DENSITY  ..INK20B4 
KINETIC  ENERGY  LOSS  RATE  LINK2087 
SUBROUTINE.  FUN  GENERAL  UTILITY  INDICATION  LINK2088 
SATURATION  PRESSURE  OF  MATER  VAPOR  (INVALID  FOR  TEMPERATURE  LINK2089 
ABOVE  BOILING  POINT  OF  WATER)  LINK2090 
ARRAY (260 1  •  ATMOSPHERIC  DYNAMIC  VISCOSITY  OCOEFF,  OF  V I  SC . ) L INK2091 
(KGM/ (M-SECl I  MATCHES  ALT  ARRAY  LINK2092 
IN  SUBROUTINE  RSXP.  TIME  INCREMENT  BETWtEN  WAFER  HISTORY  LINK2093 
DESCRIPTION  POINTS  LINK2094 
FRACTION  OF  W  IN  FIREBALL  AT  START  OF  RISE  LINK209S 
ARRAY (200) .PART ICLE  SIZE  CLASS  FRACTION  OF  TOTAL  MASS  Ll FTEDL INK2094 


L INK2062 
L 1NK2063 
L INK/064 
L INK2065 
L I NK2046 
L INK2047 
L INK206B 
LINK2069 
L1NK2070 
LINK2071 
L 1NK20  72 
L1NK2073 
L1NK2074 
LINK207S 
L INK2076 
LINK2077 
L  INK2078 
L INK2079 
LINK20I0 
LINK20I1 
L1NK2082 
L INK2083 
L1NK2084 
L1NK208S 
w  INK2084 
LINK2087 
LINK2088 


OBJECT  TIME  FORMAT  USEO  TO  READ  ATMOSPHERE  TABLES 
CONSTANT  USEO  IN  COMPUTING  PARTICLE  FALL  HATES 
FISSION  YIELD  IN  LlLOTONS 


L INK2097 
L  INK2098 
L INK209V 


-  ARRAY ( 10.100 ) •  DC  PUS I T  INCREMENT  VARIABLES  IOUTPUT  OF  RSXP)  LINK2100 


GRV 

HEIGHT 

HLR 

HOB 


(l.JI  -  DEPOSIT  INCREMENT  X  COORDINATE  IMETERS) 

( 2 • J I  -  DEPOSIT  INCREMENT  Y  COORDINATE  (METERS) 

(  3  .  J  I.  -  TIME  COORDINATE  (SEC) 

(4.J)  -  PARTICLE  DIAMtTER  (METERS) 

(5.J)  -  DEPOSIT  INCREMENT  MASS  (KGM) 

(4.JI  -  Z  COORDINATE  OF  INCKtMENT  CENTER  OF  MASS  (METERS) 
(7.JI  -  INCREMENT  RADIUS  AT  CENTER  OF  MASS  (METERS) 

( 8  •  J I  -  INCREMENT  VERTICAL  THICKNESS  (METERS) 

(9.j»  -  altitude  of  incremeni  bottom  (meters) 

(10. J)  -  INCREMENT  VOLUME  (CUBIC  METERS) 

ARRAY ( 260  I .  ACCELERATION  OUE  TO  GRAV I TY ( CM/SEC*»2 I 
HEIGHT  OF  BURST  (METERSI  ABOVE  GROUND  ZERO 
RELATIVE  HUMIDITY  AT  ALTITUOE  OF  CLOUD  CENTEK 
HEIGHTIFTI  OF  BURST  ABOVE  GROUND  ZERO  (ZBKSTZI 


LINK2101 
i.  INK2 102 
LINK2103 
LINK2104 
LINK210* 
LINK2106 
LINK2107 
L1NK2108 
LINK2109 
LINK2U0 
L 1NK2 111 
LINK2U2 
LINK2113 
L1NK2114 
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ICRD 
101 STR 


1  EXEC 
1  PAM 


I  RAD 
IRISE 

JBASE 


HATH 


XBASE 

KCLD 

KCX 

KOI 


HD  IP 

HOP  ST 
KRX 


KSV 


LOUD 

MBT 


HCX 

MHYA 


N 

NDSTR 

NHODO 


C  NPVA 
C 

c 

C  P 
C  PHI 
C  PPST 


-  SUBROUTINE*  HEADS  LINK2  INPUT  CAROS 

-  PARTICLE  DISTRIBUTION  CONTROL  PARAMETER  (SET  IN  LINK1) 

1  -  LOGNORMAL  DISTRIBUTION 

2  -  POWEH  LAW  DISTRIBUTION 

3  -  TABULAR  INPUT  DISTRIBUTION 

-  CONTROL  INTEGER  FOR  CALLING  PROGRAM  LINKS 

-  CONTROL  INTEGER  FOR  PAM  OPTION 
0  -  NO  PAM  CALL 

l  -  CALL  PAM 

-  NUMBER  OF  CLOUD  WAFER  RADIUS  SUBDIVISIONS  (SEE  B2I 

-  LOGICAL  DESIGNATION  FOR  TAPE  USED  FOK  TEMPORY  STORAGE  IN 
ATMR  AND  FOR  RSXP  OUTPUT 

-  COMPUTED  GO  TO  INDEX  USED  IN  SUBROUTINE  RSXP 

1  -  CONTINUE  DPST  TRAJECTORY  COMPUTATION 

2  -  DPST  TRAJECTORY  COMPUTATION  COMPLETE 

-  ATMOSPHERE  PRINTOUT  SWITCH 
0  -  NO  ATMOSPHERE  PRINTOUT 
I  -  ATMOSPHERE  PRINTOUT 

-  COMPUTED  GO  TO  INDEX  USED  IN  SUBROUTINE  RSXP 

1  -  ADJUST  DPST  RADIUS  AND  ACTIVITY  FOR  LEAVING  CLOUD 

2  -  ADJUSTMENT  OF  1  HAS  BEEN  MADE 

-  CONTROL  INDEX  FOR  CRM  DEBUG  PRINTOUT  * 

0  -  NO  DESUG  PRINT  OUT 

I  -  DEBUG  PRINT  OUT 

-  NUMBER  OF  DPST  RISE  AND  EXPANSION  INTERVALS 

-  NUMBER  OF  DEPOSIT  INCREMENT  PER  PSC 

IF  NOT  PUNCHED*  IT  IS  COMPUTED  BY  PROGRAM 
(SEE  RSXP I 

-  IN  SUBROUTINE  RSXP*  NUMBER  OF  SUBDIVISIONS  OF  A  WAFER  WHOSE 
TOP  AND  BOTTOM  RADII  ARE  NOT  EQUAL 

•  SEE  DPSTK 

-  CONTROL  INDEX  FOR  RSXP  DEBUG  PRINTOUT 
0  -  NO  DEBUG  PRINTOUT 

1  -  DEBUG  PRINTOUT 

-  INDEX  WHICH  DETERMINES  FUNCTION  OF  SUBROUTINE  RSTR 

1  -  PRESERVE  VARIABLES  AT  START  OF  TIME  STEP 

2  -  RESTORE  VARIABLES  TO  THOSE  AT  START  OF  TIME  STEP 

•  LENGTH  OF  PARTICLE  DESCRIPTION  DATA  BLOCK  (GDPST  ARRAY  IN 
RSXP  I 

-  IN  SUBROUTINE  RSXP*  DISTINGUISHES  A  WAFER  TOP  FROM  A  WAFER 
BOTTOM 

MBT-1  SPECIFIES  A  WAFER  Tv)P 
MBT »2  SPECIFIES  A  WAFER  BOTTOM 

-  NUMBER  OF  TIME  POINTS  (ROWS)  OF  CX  ART  '.Y 

-  It  INITlXI.  ENTRY  INTO  CXPN 
2  .  REGULAR  ENTRY 

3 •  FINAL  ENTRY 

-  CLOUD  MOOE  SWITCH 

-  NUMBER  OF  ENTRIES  IN  PARTICLE  SUE  CLASS  TABLE 

-  NUMBER  OF  ENTRIES  IN  THE  WIND  HCDOGRAPH  TABLE 
SPARE 

-  NUMBER  OF  ELEME..S  IN  ALT  AND  CORRESPONDING  ARRAYS 
LIMITS  OF  NPVA  >  1.2*0 

THE  MNEMONIC  NPVA  IS  CHANGED  TO  NAT  IN  LINK  A 

•  ATMOSPHERIC  PRESSURE  AT  CLC.D  CENTER  ALTITUDE 

-  FRACTION  OF  F*W  USED  TO  HEAT  AIR 

-  ARRAY (8.101  t  TEMPORARY  STORAGE  OF  DEPOSIT  INCREMENT 


LINK211S 

LINK2U4 

LINK2117 

LINK21IB 

LINK2119 

L  ?'K21 20 

LINK2I21 

LINK2122 

LINK2I23 

LINK2124 

L1NK2129 

L1NK212E 

LINK2127 

LINK212B 

L1NK212* 

LINK2130 

LINK2131 

LINK2U2 

L1NK2X33 

L1NK2134 

LINK2135 

LINK213* 

LINK2137 

L1NK213B 

LINK2I39 

LINK2140 

LINK2141 

LINK2142 

LINK2143 

LINK2144 

LINK2149 

LINK2146 

LINK2147 

L INK214B 

LINK2I49 

LINK2190 

LINK2191 

L1NK2152 

LINK2153 

LINK2154 

LINK2 1 55 

LINK21S* 

L1NK21 97 

LINK219B 

LINK2199 

LINK2IE0 

LINK2161 

L1NK2I62 

LINK2143 

LINK2164 

LINK2169 

LINK2146 

LINK2IS7 

L INK214B 

L1NK2169 

LINK2 1  70 

LINK21 71 
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c 

C  PRS 
C  PS 
C  PS  1  ZE 
C  PM 
C  0 
c 

C  UI 
C  ox 
c 

c  oxe 
c 

C  R 
C  RA 
C  RADIUS 
C  RFO 
C  HHZ 
C 

C  RKGlLL 

C 

C 

C  RL 
C 

C  RLH 
C  RM 
C  RMAO 
C  RM1N 
C 

C  RMMO 
C  RSTR 
C  RSXP 
C 

C  RZT 
C  S 
C  SCALE 
C  SD 
C 

c 

C  SLDTMP 
C  SIM 
C 

C  SMALL! 
C  SOILHT 
C  SSAM 
C  SZRO 
C  T 
C  TE 
C  TME 
C  TMP1 
C  TMP2 
C 

C  TMSO 
C  TRPL 
C 

C  TSRO 
C  TSTM 
C  U 


VARIABLES  IN  RSXP  F OK  WAFER  SUBDIVISIONS  LINK2T72 

-  ARRAY (260 )  ATMOSPHERIC  PRESSURE  (MB)  MATCHES  ALT  LINX2173 

-  ARRAY ( 200 1 •  PARTICLE  SUE  CLASS  MIDPOINT  DIAMETER  (METERS)  LINK2174 

-  PARTICLE  SUE  CLASS  M I  OPOI  NT  I M ICROME  TERS  I  USED  IN  SUBR.  CPFR  LINK2175 

L  IN*.  21 76 
L 1 NX2 1 77 
LINX2176 
LINK2179 
LINK21B0 


-  PARTIAL  PRESSUHE  OF  WATER  VAPOR  IN  THE  CLOUD 

-  CONVERSION  FACTOR  FOR  FRACTION  MASS  TO  NUMBER  OF  PARTICLES 

PER  M* • 3 

-  virtual  mass  factor  term  in  cloud  eooation  of  motion 

-  FACTOR  CONVERTS  CLOUD  TEMPERATURE  TO  VIRTUAL  ClOUD 


TEMPERATURE  LINX2181 
INVERSE  OF  FACTOR  To  CONVERT  AMBIENT  TEMPERATURE  TO  LINK2182 

virtual  ambient  temperature  linx21B3 

CLOUD  HORIZONTAL  RADIUS  LINK21B4 
GAS  DENSITY  OF  CLOUD  LINK2185 
DEPOSIT  INCREMENT  RADIUS  USED  IN  SUBROUTINE  RSXP  LINX21B6 
DENSITY  OF  EXTRA  MATERIAL  IN  CLOUD ( MAS ) I E DUALS  DNS«100Q.)  clNK2187 
ARRAY  1 260 1  ATMOSPHERE  AIR  DENSITY  (KGM/M««J<  MATCHES  ALT.  LINX2188 
THE  MNEMONIC  RHZ  IS  CHANGED  TO  RHO  IN  LINK  4.  LINK2189 
SUBROUTINE.  UStS  RUNGE-KUTTA  METHOD  TO  INTEGRATE  LINK2190 
Differential  euuations  of  cloud  l!nk2I91 
(SEE  CRM)  LINK2192 
EMPIRICAL  CONSTANT  USED  TO  calculate  ENTRAINMENT  RATE  AND  LINK2193 
CLO'JD  VERTICAL  RADIUS  LINK2194 
ARRAY  1 260 1  ATMOSPHERE  RELATIVE  HUMIDITY  MATCHES  ALT  LINK219S 
CLOUD  MASS  LINK2196 
INITIAL  AIR  M„SS  OF  CLOUD  LINK2197 
MINIMUM  PARTICLE  RAOlUS  (MICROMETERS  IN  LINK1  CONVERTED  TO  L1NK2198 
METERS  IN  SUUli.  CPV  FOR  USE  THROUGHOUT  LINK2)  LINK2199 
INITIAL  RATER  MASS  OF  CLOUD  LINK2200 
SUbKOUTINt  WHICH  PRESERVES  AND/OR  RESTORES  CRM  VARIABLES  LINK2201 
SUBROUTINE.  RISE  AND  EXPANSION  MODEL  WHICH  COMPUTES  LINK2202 
DEPOSIT  INCREMENT  POSITIONS  THROUGHOUT  CLOUD  RISE  HISTORY  LINK2203 
VERTICAL  CLOUD  RADIUS  LINK2204 
CONDENSED  SOIL  MIXING  RATIO  LINK2205 
ARRAY  110)  .  ATMOSPHEHE  TABLE  ADJUSTMENT  FACTORS  LINK2206 
PARTICLE  SIZE  GEOMETRIC  STANDARD  DEVIATION  SUPPLIED  BY  L I NK1 L I NK22 07 
(DIMENSIONLESS).  IF  NOT  PUNCHED.  SD  ■  4.0  LINK2208 
APPLICABLE  ONLY  FOR  THE  LOONOHMAL  DISTRIBUTION  L1NK2209 
PARTICLE  SOLIDIFICATION  TEMPERATURE  (K)  LINK2210 
ARRAY ( 260 1  ATMOSPHtRt  MEAN  FREE  PATH  OF  AIR  MOLtCULESIM)  LINK2211 
MATCHES  ALT  LINK2212 
Time  after  start  of  computation  linkz213 

LATENT  HEAT  OF  VAPORIZATION  OF  CLOUD  SOIL  CONSTITUENT  LINK2214 
TOTAL  SOIL  MASS  (KG)  LINK221S 
S  AT  INIY'AL  time  LINK2216 
CLOUD  TEMPERATURE  (K)  LINK2217 
ATMOSPHEHIC  TEMPERATuRt  AT  CLOUD  CENTER  ALTITUDE  LINK2218 
INITIAL  TIME  (SECI  SUPPLitD  BY  LINK1  LINK2219 
INITIAL  VAPOR  TEMPERATURE  Ui  SUPPLIED  BY  LINK1  UNK2220 
INITIAL  TEMPERATURE  OF  CONDENSED  PHASE  MATERIAL  IN  CLOUD  LINK2221 
SUPPLIED  BY  L I NKl I  NO T  USED)  LINK2222 
TIME  OF  PARTICLE  SOL  1 0 1 F l C A T I  ON  (SEC)  WITHIN  ClOUD  UNK2223 
SUBROUTINE.  USES  LINEAR  INTERPOLATION  TO  COMPUTE  VARIABLE  L1NK2224 
CORRESPONDING  TJ  ARGUMENT  LINK2225 
R-RATE  CLOUD  RISE  TERMINATION  SWITCH  PARAMETER  LINK2226 
TIME  A I  WHICH  NEXT  Cx  ARRAY  ENTRIES  ARE  TO  BE  MADE  LINK2227 
CLOUD  VERTICAL  VELOCITY  LINK2228 
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i 


USOIL  -  SOIL  TYPE 


V 

VBL 

vis 

VPN 
VX<  I  I 


1.0  «  SILICEOUS 
2.0  ■  CALCAREOUS 
IF  NOT  PUNCHED.  USOIL  ■  1.0 
CLOUD  VOLUME 

ARRAY (81.  DUMMY  VARIABLES  OF 
DYNAMIC  VISCOSITY  OF  IN-CLOUD  GAS  I  ICON.  /M. /SEC  .  > 
MASS  OF  VAPOR  (KG)  SUPPLIED  BY  LINX1 


LINX2229 

LINK223Q 

LINK2231 

LINX2232 

INTEGRATION) SUBS.  DER I V .RKGILL  I L INX2233 
(SUBR.  CPFR  I  L1NK2234 
LINK2235 


ARRAY ( 200 1  .  A-COMPONENT  OF  MIND  VELOCITY  AT  MIND  HODOGRAPH 
STRATUM  I.  (METERS/SEC  t 

VYtll  -  ARRAY ( 200 1 .  Y-COMPONtNT  OF  MIND  VELOCITY  AT  MIND  HOOOGRAPH 


M 

MT 

X 

/>E 

Y 


STRATUM  I.  (METERS/SEC I 
TOTAL  YIELD  (XT  I 

SOLID  AND  L1UUID  MATER  MIXING  RATIO 
IN-CLOUD  mATER  VAPOR  MIXING  RATIO 
AMBIENT  AIR  MATER  VAPOR  MIXING  RATIO 


LINX2234 
L  INK2237 
L INK22  38 
LINX2239 
L  I NK2  240 
LINK2241 
L INX2242 
LINX2243 


-  ARRAY (200 1 .NUMBER  OF  IN-CLOUD  PARTICLES/UNIT  VOLUME  OF  CLOUDL INK2244 


2  -  CLOUD  CENTER 

ALTITUDE  (METERS) 

LINX224S 

2BFR  -  MAXIMUM  2  OF 

CURRENT  OR  PREVIOUS  ENTRIES  TABULATED  BY  CXPi, 

•  L INX2244 

2BRST2  -  2-COORD  1  NATE 

OF  HURST  GROUND  2ER0 

(METERS  ABOVE 

MSL ) 

LINX2247 

2LMT  -  UPPER  LIMIT  FOR  CLOUD  CENTER  ALTITUDE  TO  PREVENT 

COMPUTATIONAL  RUNAmAY 

POSSIBLE 

L 1NX2248 
L INK2249 

2V(l)  -  ALTITUDE  OF  CENTER  PLANE 

(METERS  ABOVE  MSLI 

OF  MIND  HODOGRAPH  STRATUM  1 

L INK22  SO 
L INX22  Si 

2VSB  -  IN  SUBROUTINE 

RSXP •  DISTANCE  OF  A 

MAFER  ABOVE  CLOUD  BASE 

LINX22S2 
L INX22  S3 

COMMON  /SET  1/ 

• 

••LINK22S4 

> 

NX22S6 
LINX22S7 
LINX22S8 
LINX22S9 
L INX2260 

1CAY  .DETIDI12)  .  D I  AM  (2011 

•DMEAN 

•  DNS 

.EXPO 

. L INX2261 

2FMASSI 200I.1DISTR 

•IEAEC 

.IRISE 

.  IS I N 

.ISCUT 

. L INX22G2 

3NDSTR  . PS  I  200 1 

•  SO 

.  SSAM 

•  TME 

.  TMP 1 

. L I NX2263 

4TMP2  « T2M 

.USOIL 

.  VPR 

•  w 

•HEIGHT 

. L INK2264 

52SCL  . NHODO 

COMMON  /CLOUD/ 

•2V ( 200 ) 

»VX( 200) 

•VYI200) 

L INX2265 
L INX2266 

1ALT ( 260  I .  . ATP ( 260 1 

•  BO 

>CG( 200 ) 

•CHANGE 

•  CMLR 

•L1NX2267 

2CX (10.901  . C2 

•  C3 

tC6 

•  DEX 

•  DNI D  f 12  ) 

.  L 1NX2268 

3DRM  .OS 

•  DST 

•  DSTO 

•  DST  1 

•  DST  2 

.  L 1 NX22  69 

4DT  .DU 

•  DMT 

•  DX 

•  D2 

•  ED 

.  L INX22 70 

SEX  .EPS 

•  ES 

. ETA ( 260 )  .F 

•  fm 

•L INX22 71 

6GRV (2601  »  MLR 

.HOB 

•  IPAM 

•  I  RAD 

•  KCLD 

•LINK2272 

7KD1  » XRX 

•  XS 

«xsv 

•  MCX 

•  MMYA 

. L 1NX22  73 

8N  .  NNN 

•  NPVA 

.p 

•  PKS ( 260  1 

•  PM 

•  L 1NX22  74 

901  .R 

•  RA 

•  RFD 

•RH2I260) 

.RL 

. L INX22  75 

1RLHI 260 1  .RM 

•  R2T 

•  S 

•  SAVE 

.SLDTMP 

•LINK2276 

2SLM( 260 1  . SMALLT 

•  S2RO 

.T 

•  TE 

.  TMSD 

. L INX22  77 

3U  .V 

•  V2RO 

•  MT 

•  X 

•  XE 

•L1NK2278 

4YI200I  .2  .2UFH 

DIMENSION  CXTIMI90I .CXTMPI90) 

MOB-HEIGHT •3.2808 333 

•2BRST2 

.  2LMT 

LINX2279 
L  INX2260 
L1NX7281 
L  INX22  82 
L 1NK22  83 
LINX2284 
L INX228S 
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SSAM«SSAM«-VPK 
CALL  ICRO 
RFD«1000.»0NS 
CALL  CRM 

COMPUTE  TIME  OF  PARTICLt  SOLlDiF l  CAT ION 


122 


DO  122  MA»1*MCX 

MB-MCX-MA+1 

CXT IM ( MA I “C X ( l.MB) 

CXTMP ( MA ) «CX l 9 .MB ) 

CALL  TKPL (SL0TMP.MCX.LXIMP.LXT IM.TMSO  > 


WRITE! ISOUT .5131 TMSD 

51J  FORMAT (  /  9X  « 'TIME  OF  SOIL  SOLIDIFICATION 


IF ( IPAMI SO. 50 .63 
60  CALL  PAM 
50  CALL  RSXP 
RETURN 
END 


* . F  9  »  A . '  SfcC'l 


LlNK.2286 
LINX228? 
L I NN22  68 
L INX22  69 
LlNK.2290 
L I NX22  9 1 
LINX2292 
LINK2293 
L INX2294 
L INX22  95 
LINX2296 
LlNK.2297 
L1NX2298 
LlNK.2299 
LINX2300 
LINX2301 
LlNK.2302 
LINK.2303 
L I NX2  306 


i  o:j 


o  f>  r%  f\  r>  n  rv 


SouxociT  1  nl  *  r«" 

A  TMR 

001 

ATMR 

002 

Rt9l.»EO  MAY  i  i  70 

A  TMR 

003 

ATMR 

004 

ATMR 

OOS 

••ATMR 

006 

ATMR 

007 

A  Tmx  xEAOj  IN  ATMOiPntXt  f  AbctS 

ATMP 

008 

ATMR 

009 

ATMOiPMLXt  TA8ct  GcOSiARY-  w,N1TS  AXt,  FOR  TMt  aCAcEu 

bNTXlbS 

ATMx 

010 

ATMR 

Oil 

1  Acf  -  Ac  f 1 7  uok  Adu.t  M»c  IMfcTtRSI 

ATMR 

012 

2  ATP  -  TtMPLXATuNt  lOt.uRce.;>  XtC91N> 

ATMR 

013 

3  PRS  -  PKtijJKt  <  Mt>  > 

ATMR 

014 

A  R*2  -  k>t«0|f7  |K.wM/M«»J» 

ATMR 

01* 

i  RC n  -  MuATlYt  NsyMIDIIY  (Pt.RCc.NT) 

ATMR 

316 

i  k  f  A  -  9.SC0SITY  (X«M/ IM-jEC)  ) 

ATMR 

017 

7  GX9  -  ACCkCtxATION 

OF  jRA/ITY  l*l/.»£C*»2  ) 

-.TMR 

018 

•  ScM  -  MOctCucAX  MtAN  fNtt  PAT n  ( M ) 

ATMR 

019 

ATMR 

020 

••ATMR 

021 

ATMR 

0  22 

COMMON  /SETl/ 

ATMR 

023 

1CAY  .CETI0I12) 

'01  AMI  201 >  . DMEAN 

'ONS 

.EXPO 

.ATMR 

024 

2  FMASS 1 200 ) 'lOISTR 

.ItxtC  .IRlSfc 

.  IS1N 

' 1 SOuT 

.ATMR 

02S 

INGSTR  .PS1200) 

'SO  ' SSAM 

.TME 

.  TMP 1 

'ATMR 

026 

4TMP2  'T2M 

'USOlC  » 9PK 

•  If 

•HEIGHT 

•  ATMR 

027 

S2SCC  'NHO0O 

'2912001  '  9  X ' 200 1 

»VYl 200 ) 

ATMR 

028 

COMMON  /CcOOL/ 

ATMR 

029 

1  AC  7  1  260  1  .AT''(260> 

•  do  'COT  200 1 

'CHANOk 

*  CMC  K 

.ATMR 

030 

2CA(10.90>  *C  2 

•C 3  ' C6 

.DE* 

'0N10T 12  ) 

.ATMR 

031 

JDRM  'OS 

'Osr  'osto 

.  DST  1 

.DST  2 

.ATMR 

032 

6DT  'OO 

•  D«vT  •  L>  A 

'02 

'ED 

.ATMR 

033 

5EX  »t<»S 

•  ES  • £  T  A ( 260  I 

fF 

«FX 

'ATMR 

034 

6GR9 ( 260 1  'McK 

.MGd  »1PAM 

.  I  RAO 

♦  XCCO 

.ATMR 

035 

7X01  'XRX 

.<S  .X»9 

.MCX 

'MWYA 

'ATMR 

036 

8N  » NNN 

.NP9A  »P 

'PRST2601 

*Pw 

'ATMR 

037 

901  .  R 

'RA  »RF0 

.  RM2  1  260  ) 

.RC 

.ATMR 

0?J 

1RCM(260>  'AM 

»x2  r  »s 

'  SA9E 

.SLDTMP 

'ATMR 

039 

2ScM(260>  • SMAccT 

»SZKu  #T 

.Tt 

.  T  MSO 

*  aTmk 

040 

Jo  '9 

•92X0  'XT 

'X 

»XE 

.ATMR 

041 

4YI2O0)  . 2 

. 2dF  X  • 2dXS  T  2 

'  2LMT 

ATMR 

042 

DIMENSION  FMT l  id  > .SC Act  1 1 J) .ATMiOdl  8 ) .ATM 'KOI 8 ) 'ATMMAX ( 8 ) « API  8 ) 

ATMR 

043 

ATMR 

044 

••ATMR 

045 

ATMR 

046 

10  FORMA  T  (  I  4  ) 

ATMR 

047 

20  FORMAT (8141 

ATMR 

048 

30  FORMA  T 1 1 2  A6 ) 

ATMR 

049 

40  FORMAT  I 7F 1O.S/3F10.5 1 

ATMR 

050 

ATMR 

051 

•  •ATMR 

052 

••ATMR 

053 

ATMR 

054 

OATA  PXOGRM /6H  A T MX 

ATMR 

055 

OATA  ATMSJd 

ATMR 

056 

1  /-1 000'  '2  94.66  "  134  7£*1  "  182066.- 

4  "  1 1 39t  4 

.  9« a • 

ATMR 

057 

104 


2  .60 i2 3E- 7*77./ 

ATMR 

C  38 

DATA  ATM2NO 

A  T  MR 

0  59 

1  /  0.0  ./aa.  la  . .  i225Uf»)  ..  1  7e94t-4 . .  iOi  33E4.  9.8. 

ATMR 

060 

2  .66317E-7.  77./ 

ATMK 

061 

DATA  ATMMAa 

ATMR 

0  62 

1  /50000.  .28  2 . 66 . « 1U829E* 1 < . 1 762  8E-4 . . d  785  8  <  9 .6>62  . 

ATMR 

063 

2  .75023E-4.  0.0/ 

ATMR 

064 

c 

ATMR 

065 

100*0 

ATMR 

066 

NBRNCH*! 

ATMR 

067 

WATCOR*(l.-18./J9. 1/100. 

ATMR 

068 

c 

ATMR 

069 

c 

READ  OBJECT-TIME  FORMAT 

ATMR 

0  70 

c 

ATMK 

071 

READ! 1SIN.30IFMT 

ATMR 

0  7  2 

c 

AT  MR 

0  73 

c 

READ  SCALE  AND  AD  JUS T  ME  N  l  FACTORS 

ATMK 

0  74 

c 

ATMR 

075 

READ! ISIN.40)SCAlE 

ATMR 

076 

00  90  1*3.10 

ATMR 

077 

I F  (  SCALE ( 1 > 190.91.90 

ATMR 

078 

91  SCALE  1  11*1. 

ATMK 

079 

90  CONTINUE 

ATMR 

080 

c 

ATMR 

081 

c 

READ  ATMOSPHERE  OATA  SEuutNCc  INOlClES 

ATMR 

082 

READ ( 1SIN.20IN1.N2.N3.N4.N5 .N6.N7.R8 

ATMR 

083 

c 

ATMK 

0  94 

c 

READ  NUMBER  OF  ATMOSPHERE  TABLE  ENTRIES 

ATMR 

085 

c 

ATMR 

0  96 

READ! IS1N.10INPVA 

ATMR 

087 

c 

ATMR 

089 

c 

READ  ATMOSPHERE  TABLE  ENTRIES.  StOUENCE  AND  ADJUST 

THEM  To  THE 

ATMK 

089 

c 

PROPER  UNITS.  AND  WHERE  APPROPRIATE  COMPOTE  THOSE  ENTRIES  NOT 

ATMR 

060 

c 

PROVIDED  IN  THE  INPUT.  ETA.  DRV.  AND  SLM  NEED  NOT 

BE  INPUT. 

ATMR 

091 

c 

EITHER  PRS  OR  RHZ  (BUT  NOT  BOTH)  NEED  NOT  BE  INPUT 

ATMR 

092 

c 

ATMR 

093 

DO  100  I«1.NPVA 

ATMK 

094 

READI 1S1N.FMT )AP 

ATMR 

095 

ALTI I )*(AP(N1 l+SCALEi 1 1 1 ‘SCALE ( 3) 

ATMK 

096 

ATP ( I )* (API N2> .SCALE! 21 )*SCALE(41 

ATMR 

097 

PRS ( I >• API  Nil *SCALE (3) 

ATMR 

098 

RHZ I  I 1*AP(N4)*SCALE(6  1 

ATMR 

099 

RLHI I »»AP<N5)*SCAlE( 7) 

ATMR 

100 

ETA ( I 1 «AP ( N6 1 *SCAlE I 8 1 

ATMR 

101 

GRV ( 1 )*AP(N7)*SCAwE(9) 

ATMR 

102 

SLM ( I 1 *AP I N8 1 *SCAlE I  10) 

ATMK 

103 

c 

ATMK 

104 

c 

are  SUCCESSIVE  table  entries  in  ORDER  OF  InCREASINo 

altitude- 

ATMK 

105 

c 

ATMR 

106 

IF  I I.EO.l 1  00  TO  SO 

ATMR 

107 

if  ( alt ( i i-alt (i-iii  4S.45.so 

ATMR 

108 

4S  1RROR--45 

ATMR 

109 

PRINT  40.  ALT  1 I ) .ALf ( 1-1 ) 

ATMR 

110 

GO  TO  130 

ATMK 

111 

SO  IF IGRVI I ) .GT.0.0 )  GO  TO  70 

ATMR 

112 

GRV ( I  )  *9 . 8 

ATMR 

113 

70  IF ( ETA ( 1 )  .OT.O.O)  GC  TO  1070 

ATMR 

114 

10? 

no  noon  non  noon  noon  non 


1 0  70 

71 

72 

73 

60 

100 

110 

111 

111 

112 

113 

116 

115 

115 

116 

120 

130 

135 

137 

160 

160 


150 

160 


E  T  A  < 1 l*1.6S0L-o*Afo( 1 > • • 1 .5 / < 110.6*ATPI 1 ) 1 

ATMH 

115 

IF  (  PKS  I  1  1  .  0  I  •  J.J  1  GO  TO  / 3 

ATMH 

116 

If  (  KhZ  U  1  «UT  •  1  GO  Tj  7  2 

atmr 

117 

IHHOR*-71 

atmr 

110 

00  TO  130 

atmr 

119 

ES*  6.11*<  2  73./ATp<I  >  >»*5.13»  t*P<25.»<  A  r  H  »  1  ) -2  73. 

l/ATPI 1  1  I 

ATMR 

120 

PhSII)*  2  •  66  7  V  •  Kti2  1  I  )  •  A  f  P  I  I  )  ♦tS'HLMl l 1 •WATCOH 

ATMR 

121 

GO  TO  60 

ATMR 

122 

IF ( HH2 ( 1 1 «G 7 .0.0 1  no  10  60 

ATMH 

123 

t  S*  6. 1 !• <  2  7  3. /A T P < I 1  l»»5 . 1 3*  1 2P < 2 5 • • 1  A  TP  I  1  ) -2 7 3. 

) / A  TP ( I  1  ) 

ATMR 

12  6 

»H2(  II*  1 PMo(  1  l-15»HLH<  1 1 **ATW0PI / 12.06  79»ATP< I 1 1 

ATMR 

125 

1 F  1  S  .M  III  «  nT  .  0 . 0  )  no  I  *  loo 

ATMH 

126 

SLM< 1 >*2.3321VL-7»ATP( 11/046(11 

ATMR 

127 

CONT INOt 

ATMR 

120 

ATMR 

129 

OtTtRMINt  IF  T  Ht  I  Abel  MUST  01  t APANutO  TO  256  tNTHIES 

ATMH 

130 

ATMR 

131 

IF (NKvA-256 1 160. 1 1 1 . 120 

ATMH 

132 

ATMR 

133 

T  Ht  I  Abut  j  oO  NOT  »ttD  EaPANjION.  CrltCA  To  OtTtRMINt  IF  Tril 

ATMR 

136 

TAUL tn  MAVt  TMt  PRUPLH  tiOUNOHItS. 

ATMR 

135 

ATMR 

136 

IF ( ABSI ALT  I  1 1 ♦  1000. 1 .Lt.l. 1  SO  To  113 

ATMR 

137 

IHROR.-l 12 

ATMR 

130 

GO  TO  130 

ATMR 

139 

IF < AUS< Al I < 256 1-5. t6 1 .Lt.5u. )  GO  TO  115 

ATMR 

160 

IHHOR.-l 16 

ATMR 

161 

GO  TO  130 

ATMR 

162 

ATMR 

163 

THt  TABLta  HAV t  TMt  PROPlH  BOUNORItS.  CHECK  TO  OtTtHMINt  IF 

TMt  ATMR 

166 

Alt  1  Toot  INTERVALS  ARt  AlL  200  MtTtHS. 

ATMR 

165 

ATMH 

166 

00  116  1*2.256 

ATMH 

167 

IFIABSIAlT  >  I  ) - Al  T ( 1— ’  1-200. I. GT. 2.1  GO  TO  135 

ATMR 

160 

CONT i Not 

ATMH 

169 

GO  TO  270 

ATMR 

150 

IHHOH*— 1 20 

ATMR 

151 

CALL  ERROR I PhOgRM. IHRGK. 1  SOOT  I 

ATMR 

152 

CONT INOt 

ATMR 

153 

GO  TO  I  160. 137) .NBHNCH 

ATPR 

156 

IRROR--1 37 

ATMH 

155 

GO  TO  130 

ATMR 

156 

ATMR 

157 

TMt  TABLtS  NttD  t  SPANS 1  ON  OR  INTtHVAL  AOJOSTMtN T 

ATMR 

150 

ATMR 

159 

RtwIND  I  R I  St 

ATMR 

160 

ATMR 

161 

00  TMt  TABLtS  tit  GIN  AT  -1000  METtRS- 

ATMR 

162 

IF  NOT  MA At  AN  t  N  T  R  7  AT  -loOO  MtTERS  FROM  TME  AROC 

STANOARO 

ATMOS. ATMR 

1 63 

ATMR 

166 

IF  I ABSI ALT < 1 )♦ l  00. >  .GT.  1.)  GO  TO  150 

ATMH 

165 

AlT(1)*-1000. 

ATMR 

166 

GO  TO  200 

ATMH 

167 

WRITE! IRISElATMSOti 

ATMR 

160 

l GO* I GO*l 

ATMH 

169 

ATMR 

170 

00  TMt  TAtiLtS  MAVt  An  tNTRY  AT  0  METERS- 

ATMR 

171 

onnnn  r>or>  n  o  r>  r>  r*nn  r»n 


IF  NOT  MANE  AN  ENTRY  AT  0  METERS  FROM 

The 

AKOC 

STANDARD  ATMOS 

•  ATMk 

1  72 

atmr 

1  73 

IF(ALTIl)  • LE •  O.UUDGO  TO  200 

AT  MR 

174 

WRITE! IKISEIATMZKO 

ATMR 

175 

I GO- 100*1 

ATMR 

176 

atmr 

177 

ST OKb  THE  INPUT  TABLES  ON  TAPE 

atmr 

17b 

ATMR 

17V 

200 

00  210  1*1.  NP V  A 

ATMR 

lbO 

210 

WRI  TEI  1HISE  IALT  1  I  1  .ATP!  I  )  .RrtZ  1  I  I  ft  T  A(  I  )  .PRSI  I  )  .GYV(  1  1  .SEMI  I  I  • 

ATMR 

1  bl 

1  hlh  (  I  ) 

ATMR 

1 62 

ATMK 

183 

oo  The  tables  have  an  entry  at  soodo  meteks- 

ATMR 

184 

IF  NOT  MAKE  AN  ENTKY  AT  5OO00  MeTEKS  FKUM 

THt 

AKOC 

STANDARD  ATMOS 

.ATMR 

1  b5 

ATMR 

lbb 

1FIALTINPVA)  .GE.  5.E4I  GO  TO  220 

ATMR 

187 

IF (ABSIALT  <NPVA>-5.E4).LE»60. 1  GO  To  220 

atmr 

lbb 

WRITE! IRISEIATMMAx 

ATMR 

lbV 

NPVA«NPVA»1 

ATMR 

190 

ATMR 

191 

initialize  for  the  tables  expansion 

ATMR 

192 

ATMK 

193 

220 

REWIND  IR1SE 

ATMR 

194 

NPVA«NPVA*I GO 

ATMR 

195 

IF INPVA-256 1222 .222.221 

ATMR 

196 

221 

IRROR--721 

ATMK 

197 

GO  TO  130 

ATMR 

19b 

222 

DALT  *200. 

ATMR 

199 

NPV»  1 

ATMR 

2  0  0 

READ! I  RISE  > Al I ( 1 ) .ATP ( 1 ) »KH2I 1 ) .ElAI  1 ) • 

PRSI  2  )  . GRV  1  1  )  . S M  1 1  I  . 

ATMR 

201 

1  RLH(l) 

ATMR 

2  02 

Al-ALT(l) 

ATMR 

203 

A2-ATPI 1 > 

ATMR 

2  04 

AJ-RH2I1I 

ATMR 

205 

A4-ETAI1T 

ATMR 

206 

A5-PKSI 1  I 

ATMR 

2  07 

A6-GRVI 1 > 

ATMR 

20b 

A7*  SLM 1 1 ) 

ATMR 

209 

A8«KLHI1) 

atmr 

2  1C 

ATMR 

211 

EXPAND  THE  TABLES  To  25b  ENTRIES  IN  200 

METERS 

intervals  in 

ATMK 

212 

ALTITUDE  FROM  -1000  TO  50000  METERS  by 

LINEAR 

interpolation 

ATMR 

213 

FROM  THE  INPUT  TABLES 

ATMR 

214 

ATMK 

215 

00  260  I  *2 . 256 

ATMK 

216 

ALT) 1  )-AlT( 1-1 1 +DAL  T 

ATMR 

217 

225 

IFIA1.GE.ALTI I 1 )G0  TO  2 50 

ATMR 

21b 

IF  1  ALT  I  1  I —A  1  • L  T .  2.)  GO  TO  250 

ATMR 

219 

NPV«NPV4l 

ATMR 

220 

IFINPVA-NPV  .  GF. .  0  )  GO  TO  2  40 

ATMR 

221 

2  30 

IRROR--230 

ATMR 

222 

GO  TO  130 

ATMR 

223 

24  0 

READ  1 IRISE) A1.A2.AJ.A4.A5.A6.A7.AB 

ATMR 

224 

GO  TO  225 

ATMR 

225 

250 

TERP-  DALT  /(AI-AlTI I-ll i 

ATMR 

226 

ATP (  I  i  *AT P ( 1-1 )2TERP*I A2-ATPI 1-1 1 1 

ATMR 

227 

RH2 1 1 ) “KHZ ( 1-1 )*TEKP» ( A3-RHZ !!—!»» 

ATMR 

228 

1 1)7 


t  T  A  1  |  |  «t  T  A  (  | 

-i  i  ♦  r l kh •  <  a  ,-t.  r  a  i  i-i  1 1 

ATMH 

229 

MkSI i 1  ■RKh 1 1 

-11*  f  li<R»  (  Ab-R  (  1  -  1  I  1 

/.thr 

2  30 

GW V ( I 1 »jHv 1 1 

-1  )  ♦  tLRR*  (  Ab-  jRv  1  l-ll  1 

atmr 

231 

SLM(  1  ) ■ b  lM i  1 

-11*1  KR»  1  A  /-  (  I  -  1  )  1 

atmr 

232 

Rl_Ml I 1-KLHl 1 

-  1  1  *  t  ERR*  1 AM-R_H !  1-1)1 

ATMR 

233 

CONT INUE 

ATMR 

234 

NRVA*2b6 

ATMR 

23b 

NBHNCh.2 

ATMH 

23b 

GO  TO  111 

ATMR 

237 

RE  Turn 

ATMR 

23b 

ENO 

ATMR 

239 

1  ItR 


SUBROUTINE  CPFH 

CPF  R 

001 

c 

CPF  R 

002 

c 

•  •CPF  R 

003 

c 

CPF  R 

OOA 

c 

CPFH  COMPUTES  PARTICLE  FALLOUT 

HATt 

CPF  R 

005 

c 

CPFR 

006 

c 

'•CPFR 

007 

c 

CPFR 

008 

COMMON  /SET  1  / 

CPFR 

oov 

KAY  .DtTli<(12) 

.UIAM12JI 1 

.DMEAN 

•  DNS 

.tXP  0 

.CPFR 

010 

2FMASS 1/001 . IDISTR 

.  1 1  «E-. 

. 1RI SE 

•  IS1N 

.ISOUT 

.  cPF  R 

Oil 

3NOSTR  .PSI200I 

•  SO 

#  j6AM 

.  TML 

»  TMP  1 

.CPFR 

012 

ATMP2  •  T  2  M 

.usou 

.  VPH 

•  w 

.HEIGHT 

.CPFR 

013 

52SCL  •  NHOOO 

.2/1 200 1 

•  vx I  200  1 

.  *  Y  1  2  0  0  1 

CPFR 

0  1 A 

COMMON  /CLOUO/ 

Cf  F  R 

015 

iALT<260>  .ATPI260) 

.HO 

•  CGI  200  I 

.CHANGE 

.  C  ML  H 

.CPFR 

016 

2CX 1 10.90)  *C2 

.C 1 

.  C6 

.  Dt  A 

•DNIDI 12 ) 

.CPFR 

017 

3DRM  <0S 

.US  1 

.  US  T  0 

•  DST 1 

•  DST  2 

.CPFR 

Jib 

ACT  .DU 

.UwT 

•  DA 

.02 

.ED 

.CPF  R 

019 

SEA  .EPS 

.ts 

.ETA! 260) 

.F 

,FW 

.CPFR 

020 

6GR  V 12601  .MLR 

•  MOB 

.  I  PAM 

•  IHA  j 

,  ACLD 

.CPFR 

021 

TAD i  .ARA 

•  ASV 

,  MC  X 

•  MWyA 

.CPFR 

022 

8N  . NNN 

.  NP  V  A 

.P 

. PHS t  260  ) 

•  PW 

.CPFR 

023 

901  .  R 

•  HA 

.RFC 

1 RH2 ( 260 ) 

•  RL 

.CPFR 

0  2  A 

1RLHI 260 1  .RM 

•  R2T 

•  s 

•  SAVt 

. sldtmp 

.CPFR 

025 

2SLMI260)  .SMAI.lT 

•  S2H0 

•  r 

,TL 

.  tmsd 

.CPFR 

026 

3U  .V 

.V2R0 

. * 1 

•  A 

•  XE 

.CPFR 

027 

AY  1 200 1  .2 

,2HFH 

•2URST2 

•  2  LM  T 

CPFR 

02B 

c 

CPFR 

029 

c 

•  CPF  P 

030 

c 

CPFR 

031 

c 

•  CPFR 

032 

c 

CPFR 

033 

c 

•  CPFR 

0  3  A 

903  FORMAT  ( 1 M 1 ///////// / 

CPFR 

035 

1  20X30HNEUAT I VC  PARTICLE  DENSITY 

/////) 

CPFR 

036 

c 

T  ts  T  FOR 

I MPOSS IDLE 

p»:;t  lle 

CPF  R 

037 

DO  901  J-l • NOS  TR 

CPFR 

0  3b 

IF  (  Y  (  J  1  1  902  .  901 .  Viil 

CPFR 

039 

901  CONTINUE 

CPFR 

0  AO 

GO  10  900 

0'FR 

0  A  1 

902  WHITE! ISOUT  .9031 

CPFR 

ow 

MWYA  ■  3 

CPFR 

0  A3 

go  To  ooa 

CPFR 

044 

900  CONTINUE 

CPFR 

0  A5 

C 

CPFR 

046 

c 

COMPUTE  PARTICLE  FALLOUT  HATES 

CPF  H 

OA  7 

c 

CPFR 

OAB 

VlS*l.A58t-6»  *»1  .5/1  110.A.T ) 

CPFR 

0A9 

FROG-1 .30666C  -17»HFD 

CPFR 

060 

DO  3  J* 1 . NDS T R 

CPFR 

051 

PSUE-PS!  J)*l.OE*0 

CPF  R 

052 

V0-PSI2E/V  1  S 

CPFR 

053 

V 1  -PS  1 2E • VO»F HOG 

CPFR 

0  b  4 

CDRR- VI *V0»  HA 

CPFR 

0  55 

IF  ICDRR-1A0.0 1  TGI,  TO! 

•  TA9 

CPFR 

056 

7A9  IF (CDRR-A.5E* /)  76 j.  75 1 . 75 1 

CPF  R 

0  6  7 

I  U'l 


u  uu  u 


751  wRlTEI  ISOUT  .7J8IP8UE  i4  CPFH 

758  FORMAT I // *  0  A  V I £s  LUUAMCNS  ARE  INACCURATE  FOR  • . F 1 2 . 3 , • M i CROME TERSC PFR 
1AI * .F 14. 3  * 'Ml  7LH5*  1  CPF R 

00  TO  760  CPFR 

701  CGI  Jl*\71«  14  l',66.  7*lURR" ( -4  ,  3  16  3E*  4  ♦  CDRR  •  I  2  .  0 1  54-6.  9  1  05  E-  J»CDRR  111  CPFR 

00  TO  3  CPFR 

760  UL0GA«AL0u1  u(  CORN  I -40  •  7  7  3  CPFR 

CO  I J 1*5065 7.0»Vl»CURH«»l< ULuuA »GL0GA-44 3 • 98 I *0.0011 4  35  I  CPFR 

3  CO(JI*COIJI»l  I.J.0.43J/(PS14E»RAI  I  CPFR 

CPFR 

COMPOTE  OVtRALL  LOSS  KA7l  01  FALLOUT  FROM  THE  ClOUO  AND  ADJUST  CPFR 

IN-CLOU0  PARTULt.  CONCE  N  T  RA  f  1  ONS  CPFR 

CPFR 

CMLR*0.  CPFR 

A*3.1415947»R»»4»DST  CPFR 

DO  1  J« 1 • NOSTR  CPFR 

C*0.54J5988»P5< J I »»3  CPFR 

D»A«CO(J)  CPFR 
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a  nRa 

iU 

•  A4V 

•  MCA 

•  MWVA 

•  OCR 

•  N 

•  NNN 

«\R«/A 

•  R 

•  RK4(kt>0i 

•  RR 

•  OCR 

VOI 

•  K 

•  kA 

•  HFO 

•KMk(k40l 

•  ML 

•  OCR 

IKLH(koO) 

•  KM 

•  Kkl 

•  4 

•  4AVL 

•4LDTMR 

•  OCR 

V4LMU40I 

•iMALLl 

•  ikKU 

•  I 

•  1C 

•  TM40 

•  OCR 

10 

•  V 

•  VkKU 

•  Ml 

•  A 

•  AC 

•  OCR 

AYlkUOl 

Ok  aW 

•  k 

•  kbtK 

•  kbK4U 

•  kLMl 

OCR 

OCR 

OCR 

OCR 

OCR 

OCR 

OblAIN  VAcUti  OF  AMolti.l  I  cHOcK  A  I OKt  •  HRt44URt  .KtLAIIVt  HUMI01IY  OCR 

OCR 

CALL  IRRL  (  k .NO VA  » AL I  <All’*  I  L  •  OCR 

CALL  IRRLlk*NKvA»ALl  •OKiaRI  OCR 

CALL  T  URL  I  k  .  NH  VA  •  AL  I  •  KLH  aMLK  I  OCR 

R»R*lOO.  OCR 

OCR 

OCR 

COMRuTC  AMbltNI  AIK  aHU  Ml  *  t  ML*  RATIO  OCR 

OCR 

ACal09U*anLR«ltt/kf  .  1  i  I  «t  AR |  (  ki.  •  i  1 t-k  /  it  I  I  /  1 1 1  / < R*k9 . >  OCR 

TAO-O*  OCR 

OCR 
OCR 
OCR 
OCR 
OCR 
OCR 
OCR 
OCR 
OCR 
OCR 
OCR 
OCR 
OCR 
OCR 
OCR 
OCR 
OCR 


COMRUlt  4RCCIFI0  ML  A I  ol  IN-cLUWU  AIM 

IFIT-klOO.I  14.19. 14 
14  IKK* I 

CR-9*4«6aO«19/l*T 
00  TO  17 
1C  IRRakiOO. 

TAO«-JU7«4»l  l»IRR14l  .JiViM  ^••^-lRK••kl 
CRa-J4«7.4*k.ikiat 

1  I  CR*  I CR*A« I  14V  /•'■(■•  1.1  .*!/•.•  I  I  1/  I  1  .♦*  I 

CKAlaIAO»V*b.cai  IRK- I 1  » »0«0V«44*I TRR«4k»tt«9k > 

COMRUlC  4RLUHC  HI  A  *  IN-CLJUU  A I  H-RATtM*  iOl  L  91.  -it 

KM | A  a | 1 . ♦ *  I /  I  J. ♦»»»•«.  1 

CRaCP’KMIA 


I  vool 

l  VO  Ok 
IVOOJ 
IV004 
1  V004 
I  V004 
IV0W7 
1  VOOA 
IVOOV 
IV010 
IVOU 
IVOlk 
IVOU 
IVOU 
l  VO  1 4 
1  VO  14 
1V017 
IVOU 
IVOU 
l  VQkO 
IVOkl 
l  VO  It. 
IVOU 
IVOU 
IVOU 
IVOU 
IVOU 
IVOU 
IVOU 
IV020 
IVOU 
IVOU 
IVOU 
IVOU 
I  VC  IS 
IVOU 
IVOU 

I  vou 

IVOU 
IV040 
IV041 
IV042 
I  V04i 
IVOU 
IV044 
IV044 
IV047 
IVOU 
I  V049 

i  veto 

IVOJl 

ivou 

IVOU 

ivou 

ivou 

ivou 

1V0»7 
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If ( IMP2-T ) >BU. ii t • tu l 

OtH 

1  vubs 

3B1 

If  ( T-B4B.  I3BI0.381  J*  .'*>11 

WtK 

1  vobV 

JB1U 

cs»  /  ol»6*o.b#>i^*'-i»uait//l««^ 

OEM 

1  V040 

60  TO  3«  12 

OtH 

i  VObl 

i«li 

C4h1U03»B*6.13S1o« 1 

OtH 

IVU62 

381 2 

CH»CK*Ci*  ti»wT 1/1  1 •* a*4  +  h II 

OtH 

l  VObl 

380 

UAt*  li.*UWI  l • *2 V • • At / 18 •  1 

OtH 

1  V044 

UA* 1 i.»2V.«A/lB.I/ll.»AI 

OtH 

l  VObb 

UT»T/U 

OtH 

1  VObb 

C 

OtH 

IV047 

c 

COMPUTt  MUKUONlAt  i'»u.lU.  .LOUO 

OtH 

1  VObb 

c 

OtH 

I  V049 

RbSURT  1 3*  *v/ I  M2  T*1 2  *:>t>t>3 /Off  J »  t 

OtH 

1  VO  76 

c 

OtH 

1  V071 

c 

lb  CLOUO  LtNItK  Al.ll  lUOt  UKLAILM  OK  Ltbb  txAN  At  11  loot  Of 

PKtV 10060LH 

1  VO  72 

c 

TIMt  bTuO 

OtR 

1  VO  73 

c 

OKtATtK-  10  llUl 

OtH 

1  VO  74 

c 

LUS  “  TO  1100 

OtH 

1  VO  7S> 

If  US«6T*0IO0  10  Uw* 

OtH 

1  VO  7b 

IF (2-/af HI  1100 >1101 .1101 

OtR 

IW077 

1100 

02-0. 

OtR 

1  VO  78 

u-o. 

OtH 

l  V07V 

00*0* 

OtH 

IV080 

NRN-2 

OtH 

1  V081 

60  TO  1 1 02 

OtR 

IVOR  2 

1101 

NMk  1 

OtR 

1V083 

c 

OtR 

1  V084 

c 

COHPUT  t  CLOUO  b  10  VULUMt  MAI lO 

OtR 

IVORS 

c 

OtH 

1  VO  84 

1102 

SV»12.5663/06*K B#2/V 

OtR 

1  V087 

c 

OtR 

1V088 

c 

COMPUTt  lOKBULtNl  AIM  1  il  f  'it  Mo  Y  OlbbiPATlON  MAtt 

OtR 

1  V08« 

c 

OtR 

IV096 

tPS»C3«(2»«tM»*l.b/K2l 

OtR 

1 V091 

U7» AMAA 1 I  Attbt  U  1 • hWHT (  2*  *tM  1 

OtR 

IV092 

OU«UT«UA*OAt»»  i*4A*MT  I 

OtR 

1V093 

IMNHOOUI  1103. 1103  (HO1 

OtR 

IV0V4 

1103 

VS-0.0 

0*8 

IVOVt 

60  TO  110b 

old 

1  VO»b 

c 

OtR 

1  VUV7 

c 

COMPUTE  Hi  NO  but  AM  COKHtClIv-  f At  1  OK 

UtK 

;  vi  vs 

c 

OtH 

ivow 

1104 

2TP«2hH2T 

OtH 

i  vioo 

2BW-R2T 

OtH 

1V161 

CALL  T  MPL ( 2  1 P  *  NMOOO  * t  v  t  »  A  #  /  A  1  1 

OtH 

1  V102 

CALL  TRPlI2IP*RmOOO»2V«v i •. » 1 1 

OtR 

l  VI  03 

CALL  TRPH2BT  fNnOOOtl 

OtR 

1  V104 

CALL  TMPLI2BI  •  MHUOCmV#  YtVVUl 

OtH 

I  vlOb 

Vi*bOMT« 1 VAl-VAb»B»<  ♦  <VYl-VVM|Sarf| 

OtR 

1  V1W4 

i:o» 

M&H&V»a7fl«b«L4*Wb/K 

OtR 

1V107 

60  TO  UOOtlOltloi  t  »li 

OtR 

1  V108 

c 

OtR 

1V108 

c 

OH Y  tOO AT lUNb 

OtR 

IVllO 

c 

OtR 

1V111 

c 

OtR 

I  VI 12 

c 

COMPUTE  AIM  EMiMAINMfcl.l  KAIL 

OtR 

IVll* 

c 

123 

OtR 

1  Vl  14 

iOU 

UMM»  (KM/ l  i  l  (•  1  1  «  r\  jA»IHi  «M(.  ♦  l  0  1  •  OA40At»9  •  *»0" 

-EP*>*DtMlVllS> 

lHMlA/(CK»f»O»i-*.r,0/.2e-./WAt«ltll 

DERI Vllfc 

UKMt»UNM 

0LR1 VI 17 

c 

OLM I VI IB 

c 

iUUTNAU  mmAY  kail  vF  NAjJ  LOil  OUt  IO  ->AMUCLL1>  FALL  1  MU  OUT 

CL0UUDER1 V119 

c 

bOlTuM  UOkINl  Klii 

OEM  I V 120 

c 

OEM  1 VI 21 

DMM«UNM-LMLK 

DERIV122 

c 

OLM 1 VI 23 

c 

COMPoTt  liMt  OtKlVAlIvt  OF  »/ttK  VAPOM  M1A1NU  KAUU 

DEM1V124 

c 

DEMIV12& 

DA*-  (  1  1  /  l  1  «  ♦  At  1  *  l  A“  Al  i  *i<KMt/KM 

DEKIV12* 

c 

OEM 1 VI 2 7 

c 

COMMult  I  1  Ml  LLKlVAllVt  'Jt  wcUOO  TtMPtMATOML 

OEM  I V12* 

c 

OEM  1 V12V 

UT*-(MMI A*  Uf •wA*UAL*9»d*U-tF  j 1*LPAI#UMME/KMI /CM 

DERI  VI 30 

MT*0« 

DERIV131 

c 

OER 1 VI 32 

c 

NO  CHANOL  IN  LiWOiU  wAT LK  KUlMi  MAT  10 

0ERIV133 

c 

OER 1 VI 3% 

DmT-0* 

DERIV13* 

00  TO  iii 

OER I  VISA 

c 

DLRIV13? 

c 

ML T  tOO AT IONS 

DEM I  Vi  3* 

c 

DERI  VI 3V 

101 

01*l«*A*29./i*. 

l  EM  I VI 40 

IF(T-273*)102»103tl03 

DERIV141 

102 

Ck*2«IH» 

0ERIV142 

00  TO  10% 

OER 1 VI 43 

103 

CL*2«»E* 

OERI V144 

10% 

U2*CL*«/(2*7.*TJ 

0ERIV149 

Q3*l*.*02/29./T 

OERI V 14* 

04*1* *02 

0ERIV147 

Q&*1.*CL*01/CP 

0ERIV14* 

0**CL*(A-AE»/CP*T-Tt 

OERI V149 

<39*MMIX/0» 

OERI VI *0 

00*09/ T /OA 

OERI VI »1 

c 

DERIV192 

c 

COMPi'Tfc  aim  LNTMAINMtNl  L  .It. 

OER1V133 

c 

DERI  Vi »4 

DRM*KM|X*(KM/(  l*0-O*«Ud  II*  >  *•  •  ML*  *  OA*UT  *9*  0*04*U*UXL-fcPS 1 /CP/T /UX*DER 1  VIM 

i(39-(».**UI/  (2*7./OAt*lt 1 > 

DEF.IV1M 

DRML-OMM 

OERI VI »7 

c 

DERI  VIM 

c 

SUBTRACT  AmAV  MAIL  OF  MAi..  Lost  OOt  to  PARTICLE*  FALLINO  OUT 

CL0U00LR1 V199 

c 

BOTTOM  DUM1NO  MILL 

Of R* V1*Q 

c 

OERI  VI  *1 

drm*dmh-cmlm 

OERI Vl*2 

c 

OEM 1 VI *3 

c 

COMPOTE  T1ML  OLM ( V A 1 1 VL  OF  TtMPEMAIOMt 

OER IV 1*4 

c 

0ER1V1M 

OT*  I  ( — UX*wt  *04*9 • 8 *0 / LP*0*fc— 0A*DRME/  IBM  | X*MM (  )«tP*/CPI*U9 

OERI Vi** 

c 

OERI Vl*7 

c 

COMMUTE  TIMt  DERIVATIVE  OF  MAIEK  VAPOM  MlAlNo  KAUU 

OERI VI** 

c 

OERI Vi*9 

0A*01M|03*0T«9(e*A*U. (2d (.*TE»*UAE» 

OERI Vi 70 

c 

OERI Vi  71 

1 24 

n  n  r*  nnr  ao  n  a  a  aa  a  a  a 


bbb 
62  i 


mo 


90  2 
90  i 


COMMUTE  T  IML  DEKlVAIivt  OF  L  1  JU 1 U  WATER  MIMNu  K*liu  DERI  Vi72 

UERlVi73 

DwT  — (l»'*-XwS'»WTI/HM««  <Wl*A-AEI/(i.+AEI«DRML*WT*CMLK/(S*wTl  ) “DA  DERI  Vi  74 

DERI  Vi 7b 

ED1»  2»*C2*U7*00/R2T  DER I  Vi  74 

00  TO  C62i*iil0» #NNN  DERI Vi  77 

OM.U-l.-KL  OtK I Vl 7b 

DERI  Vi  79 

COMMUTE  CLOUD  VERTICAL  ALCtLlKMlON  DERiVlUD 


DERI V101 


DO* ( 9««/0MU«( UT*yA*OAL*KM; f  . , )-( OMO«t01  ♦DkM/KM I «u ) *KM/ I KM*U 1 

COMMUTE  EDO*  VISCOUS)  RATt  wF  LOSS  OF  X1NET1C  ENEROl  UF  RISE 

ED-EDi*L**2 

COMMUTE  T  IML  DEKIVAMVL  OF  TuRDUI.ENT  UNETIC  ENEROY  DENSITY 

DEX“fc  D“ • EX”0»  b  *U**2 I «DRMt /KM-tMi 

COMMUTE  TIME  DERIVAI1VE  OF  SulL  MIAINO  RATIO 

OS—  (  *.♦*♦&♦*!  »*S/RM«  (  CMLR/  I  S*«(T  I  ♦ORME/  1 1  •  ♦XE J  I 

COMMUTE  IN-CLOUU  OAS  OEMS! IT 

RA-RM/V«RMIX 

IF  t  EPS  1902 •  902  *9 Oi 

EMS-l.OE-A 

RETURN 

END 


> DER I  Vi 02 
DENI  Vi 03 
DERI Vi04 
D£RIVi0b 
DERI  Vi  66 
DERI Vi07 
DERI Vi00 
DERI  Vi 09 
DERI  Vi  90 
DERI  VI 9i 
DERI Vi92 
DERI Vi93 
DERI  Vi 94 
DERI  VI 9b 
DER 1  Vi  9b 
DER I  VI 97 
DERI Vi90 
DERI V199 
DERI V200 
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SUBRUUf  I N't 

ICRu 

ICRD 

001 

ICRD 

002 

13  UCTUBtR 

1970 

ICRD 

003 

ICRD 

004 

••ICRD 

005 

ICRD 

006 

COMMON  /St  I 1/ 

ICRD 

007 

1C  A  Y 

•  L  L  T  « 0  (  1 1 

•  DlAMi .01  I 

•DMtAN 

.DNS 

•  EXPO 

•  ICRD 

UUO 

2FMASSI 200 1 

•  1  0  1  S  T  N 

»  I  Lai  (. 

.(RISE 

•  I S 1  N 

.  ISOUT 

•  ICRD 

009 

3NDSTK 

•  PS ( 200 ) 

•  SSAM 

.TME 

•  TMP 1 

•  ICRD 

010 

4  TMP2 

■  Pin  I 

JJC  4  .  . 

.  VPR 

•  w 

.HEIGHT 

•  ICRD 

on 

5ZSCL 

t  ftPcCJ 

•  2v I.Ji  i 

•  V*U  ’00) 

.  V  Y ( 2 00  ) 

ICRD 

012 

COMMON  /CL 

w  vv  / 

ICRD 

013 

1ALT 1 200 1 

•  All-  (260  I 

•  Bw 

.06(200) 

. 0MAN6E 

•  CMLR 

•  ICRD 

014 

2Ca! 10.901 

.02 

•  CO 

t  Cfc 

•  DEH 

• DNI 0(12) 

•  ICRD 

015 

3JRM 

•  ^5 

•  JSI 

•  DSTO 

.  1ST  1 

•  DST  2 

•  ICRD 

016 

4DT 

•  DU 

•  Dm  T 

.DA 

•  D2 

•  ED 

.ICRD 

017 

5  EH 

.  tPS 

•  ES 

.ETAI260) 

.F 

•  FM 

•  ICRD 

018 

FORVUsO) 

•  ML  K 

•  HUB 

•  IPAM 

•  I  RAD 

.  HCLD 

•  ICRD 

019 

/HD  I 

•  HRA 

•  HSV 

•  MCA 

•  MWYA 

•  ICRD 

020 

BN 

.  NNN 

.NPV  A 

•  P 

•PRSI260 ) 

•  PM 

•  ICRD 

021 

901 

•  H 

%  K  A 

»  RFD 

.RH2I260! 

•  XL 

•  ICRD 

022 

IRLHl 260 

.RM 

.R2T 

•  5 

•  SAVE 

•SLDTMP 

•  ICRD 

023 

2SLMI 260) 

.SMALL' 

■  S2RO 

•  T 

.TE 

.  TMSD 

•  ICRD 

024 

3  U 

•  V 

•  V2RO 

•  WT 

•  X 

•  XE 

.ICRD 

025 

4 Y ( 200 1 

•  2 

UBFR 

.2BRST2 

.  2LMT 

ICRD 

026 

ICRD 

027 

DIMENSION 

AT1U:121 

ICRD 

028 

••ICRD 

029 

CONTROL  PARAMETER  ULuSSA-.Y 

HOI  NUMBER  OF  mAFERS  PER  PARTICLE  SUE  CLASS  (RSXP) 

I  RAO  mAFER  SUBDIVISION  FACTOR  IRSXP) 

HCLO  CRM  OEBUU  PRINTOUT  CONTROL 
HR A  KSAP  DEBUG  PRINTOUT  CONTROL 

IPAM  PARTICLE  ACTIVI'I  CALCULATION  CONTROL  ( ALWAYS  EERO ) 
HATM  ATMOSPHERL  TABLE  ■  .  •  TOUT  CONTROL 

INOSTR  NUMBER  OF  PARTICLE  S  •  EE  CLASSES* 

IIOISTR  PARTICLE  OISTR1BU i JLf.  FORM  CON T POL ) 


1 1 CRO 
I  CRD 
ICRD 
1  CRD 
ICRD 
ICRD 
ICRD 
ICRD 
ICRD 
ICRD 
ICRD 
ICRD 


030 

031 

032 

033 

034 

035 

036 

037 

038 

039 

040 

041 


1000  FORMAT ( 1H 1 • /  /  / 
IT  M  E  N  T  0 
20  N  S  Y  S  T 
3E  MODULE/ //55A 

4  42 A  1 3  7HNAV Al 

5  5 S A 1 3HAN0/  5 3 
1100  FORMAT (12A6 I 
1200  F ORMAT 1 6 1 4 ) 
1300  FORMAT ( E12.5  l 
1400  FORMAT (20Ai 'CL 

IE  10ENT1FICATI 
28.1.'  METERS'/ 
SEES  HELVIN' /20 
4T)  /23A. '  TL  ' 


'  /  / 12 A101HT  H  E 
.LOUT  P  R  E 
*  •  *  «////52X.l 


51X19H*  *»****»» 

F  DEFENSE  FA 
t  M.//51A.19H*  *  *  »  #  « 

.Unprepared  BY/ 

RADIOLOGICAL  DEFENSE  LABOR  A I  vL  Y  /  55A.UHS 
A.17HAHC0N  CORPORATION/53X.it*niAHtFIELD. 


JJC  RI  t  N.N  IDENTIFICATION  -  *,1..AS//20A 
ON  1  2A6//20A. 'ELEVATION  OF  i'l  ^.r’ 
EOA.'SjK  solidification  TEMPERATURE  « 

». 'PARTICLE  DENSITY  (C.G.S.)  ■  '  .F8.4/2QA 
-L  -•  >  t  ..<*.3A. 'FISSION  *  ’  .EU.4/20A.  »F 


ICRD 

D  E  P  A  R  ICRD 
D  I  C  T  1  ICRD 
7HCL0UD-RISICPD 
ICRD 

.F.  .CALIF. /ICRD 
MASS.////)  ICRD 
ICRD 
I  CRO 
ICRD 

. 'ATMOSPMERICRD 
ZERO  ■  •  .F  ICRD 
Rfi.l.*  DEGRICRD 
. ' ' i ELDS  (Hi CRD 
RAC ’  I  IN  OF  ICRD 


ICRD  042 
043 
044 
045 
046 
047 
048 
049 
050 
051 
052 
053 
054 
055 
056 
057 


1  20 


WKirtl IsOu! ilJj.  I  I  CRD 

*R  l  T 1 1  ISUUT  •  1-.00  I L/..  i  l.  ml  lui  ZuK.SIZ  •StOT  MPaUNS  •  W  •  Fw»Phi  I  CRD 

AKlTtl ISOUT ilb^O Krh|  ICRO 

*RI  IU  1  SOU!  •  ISO  J  I  >UjTn*lU'sTK.K,Dl •  l  K  AL>  •  A.CLU  •  K.KX  *  I  PAM  t  KATM  I  CRD 

*N 1 T  L (  i sOu T  •  1  /  J «  )  N-*s  T  R •  sO I  •  i  \AD  ICRO 

IF l loATM I  ’  t J • 1  ICRO 

1  WK  1  T  L  (  1  SOU  I  tV'Ja  )  ICRO 

WKITtl  ISOUT  iWVI  (ALl  t  1  I  •  A1  O  l  1  I  .KhOI  ll.fcTAlIltPKSUI  tuKVI  1)  •  SOM  I  I  )  *  ICRO 

1KLHI  I  I  •  I -1  «,NPVA  I  ICRO 

2  XuLO  *  Aa.LU  +  1  ICRO 

XkA  *  Aka  ♦  i  ICRO 

RETURN  ICRO 

END  ICRO 


115 

116 
117 

na 

119 

120 
121 
122 

123 

124 
126 
126 
127 


12* 


c 

c 


c 


c 


c 


c 


SUbROUIlNE  KAulLL 

18  AUGUST  1969 
COMMON  /SET  1  / 


1CAY 

.DL T *0! 12 ) 

.U1AMI 201 1 

•  DMc  A.. 

•  DNS 

•  txPO 

2FMASSI200) 

. IDlSlR 

.  I  L x tC 

i  1  K  l  6t 

.  ISIN 

.  I  SOU T 

3NDSTR 

•  PS l 200 1 

•  00 

•  dSAM 

.  TME 

.  TMP  1 

4TMP2 

.  T2M 

•  060  1  L 

•  x  OR 

I  2 

•hEl ghT 

SZSCL 

. nhodo 

•  2V 1 2oo  1 

• VX ( 2uO ) 

•  VY ( 200 ) 

COMMON  /CLOUD/ 

1  ALT ( 260 )  •  AT P 1 26 0  J 

•  11  w 

•  CGI  200 1 

•CHANGE 

•  CMuR 

2CX ( 10.901 

.C2 

iC-> 

*  C6 

•  0 1 A 

•  DNI D I  12  1 

3DRM 

•  06 

.ojT 

•  D6T  0 

•  D6T  1 

. DST  2 

4DT 

•  DU 

•  DaT 

•  OX 

.02 

•  ED 

3EA 

•  CPo 

•  CO 

•  L  T  A i 260 1 

•  F 

•  F  H 

6GRVI260I 

.IiLR 

•  N^O 

•  I  PAM 

•  1  RAD 

•  ACLD 

7AD  I 

t  ARX 

•  A6 

•  A6V 

» MCA 

•  MwYA 

8N 

.  NNiM 

•  i.PV  A 

.P 

•  PRSI 260  1 

•  Pw 

901 

.  R 

ikA 

»  KF  0 

. RnZ t  260  1 

•  RL 

lRLrtl 260  ) 

•  AM 

(R2  T 

•  6 

•  GAVE 

•SLDTMP 

2SLMI 260 ) 

•6MALLT 

•  S  2R0 

.  T 

.Tt 

«  TMSD 

3U 

.  V 

<V2R0 

•  mT 

•  X 

•  aE 

4 Y ( 2 00  ) 

.  2 

•  2BFR 

•  ZdRS  T 2 

•  2lMT 

DIMENSION  OVBLIO ) .VBLl ti  I  .RAG. 8 ) 

H=DST 

AS  *0 

AYCL*1 

VBL( 1  )«WT 
VBl (21-RM 
VBL ( 3  I »U 
VBL(4)-X 
VBL ( 5 ) »T 
VBL ( 6  )  *2 
VBL ( 7  )  •  EA 
VBL  (  8  )  “S 

20  CALL  DtRIV 

IFIU.E'J.Q.O)  VBLI3I-0. 

DVBL ( 1 )»DRT 
0VBLI2 t«DRM 
DVBL( 3 )*DU 
DVBL (4 l-DX 
DVBL ( 5 ) *DT 
DVBL ( 6  I  »D2 
DVBL  <  7 ) *DEA 
DVBL l  8  )  'DS 

AS«AS*1 

GO  TO  (  1*3*5. 7  J .AS 

1  DO  2  J*1 *0 

VBLl J)»VBL( *k . ti  J) 

2  RAG ( J I «DVoL ( J I 
GO  TO  10 


RAGIL001 

RAGILQ02 

RAGIL003 

RAG1L004 

•  RAG  1  LOOS 
•RAGIL006 

•  RAGI  1.007 
•RAGILOOB 

RAGIL009 

RAGUOlO 

•  RAGI  L011 

•  K  ICO  1  L012 
• RAGI LO 13 
•RAGIL014 
•RAGlLOlS 

•  RAG 1 LO 16 

•  RAGU017 
•RAGIL018 

•  RK.GUG19 

•  RAG  1 LU20 

•  RAG)  LO 2 1 

•  KNG 1 LO  22 
RAGIL023 
RAGIL024 
RAGIL025 
RAGU026 
PAG  I LO 2 7 
RAGIL028 
RAGI -029 
RAGIL030 
RAGIL031 
RAGI 1032 
KAGIL033 
RAGU034 
RAGIL03& 
RAGIlu36 
RAG  1 LO  3  7 
RAG  1 LO  38 
RAG  1 LO  39 
RAG  1  LOAD 
RAGIL041 
RAGIL042 
RAG1  LC  <*3 
RAGI L044 
RAGUQ4& 
RAGIL046 
RAG  1 LQ47 
RAGIL048 
RAGIL049 
RAGIlOSO 
RAGI LOS  1 
RAG  1 LO  32 
RAGI cO  S3 
RAGlLOS- 
RAGI LOSS 
RAG  1 LO  86 
RAGU0S7 


12H 


3 

DO  4  J*l.o 

RXGIL0S8 

/BL(J)»VBLl  J)  i*  II /BL<  J)-KMj(  J  ,  1 

RKGIL059 

4 

l!XG(J)a*t>dt>7b64  « *0  VtiL  (  J  )  1  •12132034*RXG(J) 

RXGI LO  60 

00  TO  10 

RX01L061 

5 

LO  6  Jal*d 

RXGIL062 

VBL  1  J)  aVBL(  J)  »1.  /  J  710bd*H*<  DVBLI  J » — KK.& (  J  )  ) 

RK01 L063 

6 

RK.GI  JI«J.h14<!13Bo*0Vol(  Jl— 1  2  1320  J*RitG  (  J) 

RXGIL064 

03  TO  10 

RAO  1 LQ68 

7 

0)  8  J-lid 

RXOI L066 

8 

VIIL(  Jl  aVBL  (  J)  Ib66b66  7*H*  (  j  1  J  1  -2  •  *RKG  l  J  )  ) 

RX0IL067 

RKG1L068 

Kt  CLa2 

RKG1 L069 

10 

Ml aVBL< 1 1 

RKOI L070 

R4 ■  VBL ( 2 ) 

RKGI1.071 

Ua  VBL ( 3  1 

RKGIL072 

X*  VBL ( 4 ) 

RK.GIL073 

T*  VBL ( b  ) 

RKG1L074 

i* /BL ( 6 ) 

RX01L075 

EK • VBL ( 7 1 

RXGIL076 

S«  'BL  (  8  ) 

RKGIL077 

RZ  r«RL*(Z-B0) 

RXGIL078 

CALL  TRPLlZtNPVA.ALT.PRi.PJK) 

RKG1L079 

V«,:.8  7*T*RM*( i.  +  X) /PGR/ ( 1 «  +  X  t  S+WT 1  *  (  1*0+X*29« / 1  b  • ) / 1 1  tO  +  X  J 

RXGIL080 

00  T0( 20 • 30  1 *X YCL 

RXGIL081 

30 

RE  URN 

RKGIL082 

EN(> 

RKGIL083 

130 


nnnnn 


SUBROUTINE  KSTK 
20  AUGUST  1969 

RSTR  PREStKVtS  xNO/OK  RESTORES  CRM  VAKlAbLtS 
COMMON  /SET  1 / 


DIMENSION  PYI210) 

00  TO ( 1 • 3 ) •  XSV 

PEX»EX 

PRM»RM 

PSS*S 

PT»T 

PU»U 

PV»V 

PwT»WT 

PX»X 

P  2*2 

PRZT-RZT 

DO  2  NP-l.NDSTR 

PY ( NP ) «Y ( NP ) 

GO  TO  5 

SMALLT-SMALLT-DST 

DST»0.5 

EX-PEX 

RM«PRM 

S-PSS 

T«PT 

U-PU 

V-PV 

WT«PWT 

X«PX 

Z-PZ 

iZT«PRZT 


RSTR 
RSTR 
RSTR 
RSTR 
RSTR 
RSTR 
RSI  R 


001 

002 

003 

004 

005 

006 

007 


1CAY 

•DETIDI12) 

•  D1AMI 201  I 

•OMEAN 

•  UNS 

•  EXPO 

•  RSTR 

006 

2FMASS ( 200 ) 

• IDISTR 

•  1  EXEC 

•  1  RISE 

.  ISIN 

• 1S0UT 

•  RSTR 

009 

3NDSTR 

*  PS ( 200 ) 

•  SO 

•  ss  am 

•  TME 

.  T  MP 1 

•  RSTR 

010 

4TMP2 

*  T2M 

•USOIL 

.  /PR 

•  H 

Htl OhT 

•  RSTk 

Oil 

5ZSCL 

.NHODO 

•ZV ( 200 I 

.  VX (200 ) 

•VY( 200 ) 

RSTR 

012 

COMMON  /CLOUD/ 

RSTk 

013 

1ALT ( 260 ) 

*  AT  P 1 260 ) 

•  bo 

•C0( 200 1 

*  CHANOE 

•  CMLR 

•  RSTR 

.  14 

2CX< 10*90) 

•  C2 

•  C3 

*  C6 

•  OEX 

•  0  N 1  0  (  1 2  ) 

•  RSTR 

013 

3DRM 

•  DS 

•  DST 

•  OSTO 

•  DST  1 

.  )ST  2 

•  fiSTR 

016 

4DT 

•  DU 

•  DwT 

•  OX 

•  OZ 

•  ED 

*  RSTR 

017 

SEX 

•  EPS 

•  bS 

•  ET A ( 260  ) 

♦  F 

•  F  M 

•  RSTR 

016 

6GRVI260) 

•  HLR 

•  HOB 

•  I  PAM 

» 1  RAO 

•  XCLO 

•  RSTR 

019 

7X2 ! 

•  XRX 

•  xs 

•  XSV 

»  MCX 

*  MwY  A 

•  RSTR 

020 

8N 

*  NNN 

•  NPV  A 

•  P 

•  PRS ( 2bO  ) 

•  Pw 

•  RSTR 

021 

901 

•  R 

•  RA 

.  RFO 

•  KHZ ( 260  ) 

•  Re 

•  RSTR 

022 

1RLHI260) 

•  RM 

•  RZT 

•  S 

•  SAVE 

»  slotmp 

•  RSTR 

023 

2SLMI260) 

•SMALLT 

•  SZKO 

•  T 

•  TE 

» TMSD 

•  RSTR 

024 

3U 

•  V 

•  VZRO 

.  wT 

•  X 

•  XE 

•  RSTR 

025 

4YI200) 

•  z 

•  ZBFR 

•  ZBRSTZ 

•  zlmt 

RSTR 

026 

RsTR 

RSTR 

RSTR 

RSTR 

RSTR 

RSTR 

RSTR 

RSTR 

RSTR 

RSTR 

RSTR 

RSTR 

RSTR 

RSTR 

RSTR 

RSTR 

RSTR 

RSTR 

RSTR 

RSTR 

RSTR 

RSTR 

RSTR 

RSTR 

RSTR 

RSTR 

RSTR 

RSTR 

RSTR 

RSTR 

RSTR 


027 

02* 

029 

030 

031 

032 

033 

034 

033 

036 

037 

036 

039 

040 

041 

042 

043 

044 

043 

046 

047 

048 

049 

030 

031 

032 

033 

034 

053 

056 

057 


131 


00  4  NP« 1 • NOS  T K 

4  Y  (  NP  t ■ PY ( NP ) 

NO 

5  RETURN 
END 


R5TR  050 
RSTR  059 
RSTR  060 
RSTR  061 
RSTR  062 


132 


SUBROUTINE  RSAP 

RSXP 

001 

c 

RSXP 

002 

COMMON  /SET  1  / 

RSXP 

003 

1CAY  .DETIDI12I 

. 0 1  AM (201 1 

»OM£AN 

.  ONS 

.EXPO 

•  RSXP 

004 

2FMASS 1 200 ) . lOISTK 

•  1 LXEC 

. IRISE 

.  1S1N 

.ISOOT 

•  RSXP 

005 

3NDSTR  .PSI20UI 

•  SO 

.  SSAM 

.  TME 

•  TMP 1 

.RSXP 

006 

4TMP2  . I 2M 

•US01L 

.  VPR 

.  w 

.HEIGHT 

.RSXP 

007 

52SCL  .NrtOOO 

•ZVI200) 

•  V A  1 2 00  i 

. vr 1 2ou ) 

RSXP 

ooa 

COMMON  /CLOUD/ 

RSXP 

009 

1  ALT ( 260 1  . A  f P ( 260 1 

•  bO 

»CG( 200 ) 

•  change 

•  CMLR 

.RSXP 

010 

2CXI10.90)  • C2 

.Ci 

iC6 

•  DEK 

•  ONI  0(12) 

.RSXP 

Oil 

3DRM  .OS 

.  OS  T 

.  L'S  T  0 

•  OS  T  1 

•  DST  ?. 

•  RSXP 

012 

4DT  .UU 

•  owl 

•  OX 

»D2 

•  ED 

.RSXP 

013 

SEX  .EPS 

.  ES 

•  E  T  A ( 260 ) 

.F 

•  Fw 

•  RSXP 

014 

6GRVI260I  . MLR 

•  HOB 

.IPAM 

•  I  RAO 

.  XCLO 

.RSXP 

015 

7ICDI  » XRX 

*xs 

•  XSV 

.  MCX 

•  MWYA 

.RSXP 

016 

8N  . NNN 

.NPVA 

•  P 

•PRSI260) 

•  Pw 

.RSXP 

017 

9QI  .  R 

•  RA 

»RFD 

. RHZ 1260  ) 

•  RL 

.RSXP 

018 

1RLH 1 260 1  .RM 

•  RZT 

•  S 

.SAVE 

•SLDTMP 

.RSXP 

019 

2SLMI260I  .SMALL? 

•  SZRO 

.T 

>  T  E 

•  TMSD 

.RSXP 

020 

3U  i  V 

•  VZRO 

•  wT 

•  X 

•  XE 

•  RSXP 

021 

4YI200)  .2 

•  ZbFR 

•  ZBRSI 2 

.  ZLMT 

RSXP 

022 

c 

RSXP 

023 

DIMENSION  DPSTI8 .2 )  »L'PX 1 2  .90) .V)SCA(90) • GDPS T ( 1 0 . 100  ) 

•PPST (8.10) 

RSXP 

024 

c 

RSXP 

02b 

c 

RSXP 

026 

c 

DPST(l.MBT)  TIME 

RSXP 

027 

c 

0PSTI2.MBT)  ALTITUDE 

OF  INCREMENT  CEMER 

OF  MASS 

RSXP 

028 

c 

DPSTI3.MBTI  RADIUS 

RSXP 

029 

c 

DPSTI4.MBT)  PARTICLE 

DIAMETER 

MICROMETERS 

RSXP 

030 

c 

DPSTI5.MBT)  MASS 

RSXP 

031 

c 

DPSTI6.MBT)  INCREMENT  THICXNLSS 

RSXP 

032 

c 

DPSTI7.MBTI  ALTITUDE 

OF  INCREMENT  BOTTOM 

RSXP 

033 

c 

DPSK8.MBTI  INCREMENT  VOLUME 

RSXP 

034 

c 

RSXP 

035 

444  FORMAT  Cl'/lOA, 'DEPOSIT  INCREMENTS' //15X. 

•TIME' »  7X  » ' ALT ' »8X. ' RAD  1 

.RSXP 

036 

1 7  X . 1 D I  AM 1 .ax. 'MASS' .8X, 'OZ' .7X. 

'ZLOW* .7X. 

'VOL'// I 

RSXP 

037 

666  FORMAT (1X.1PE11.3.7E11.3.12.5X.12.' IN  CLOUD') 

RSXP 

038 

777  FORMAT  1 IX. 1PE1 1. 3. 7E1 1.3.1 2.5 X. 12) 

RSXP 

039 

888  FORMAT  (lX.lPE11.3.7EU.3/lA.'5UBDIVISiON' 

.2X.I5.5x. 'SIZE  CLASS' .2XRSXP 

040 

1.15/) 

RSXP 

041 

758  FORMAT (// 'DAVIES  tUUATIONS  ARE 

INACCURATE 

FOR' . F 12 . 3 . 

'  MICRONS  AT 

'RSXP 

042 

1.F12. 3. 'METERS' ) 

RSXP 

043 

DATA  0ENT/6H  IRISE/ 

initialize  *af eh  up-drift  interpolation  arrays  and  wafer  data 

ARRAYS 


DO  2  KA-1.90 
DO  2  ICB-1.2 
DPXIICB.ICAI-O.C 
DO  3  ICC-1.8 
DO  3  ICQ- 1.2 
DPSTIKC.AUI-O. 
IF  (ICD1  15.5.4 
KDPST-ICDI 
DPSTIC-ICDPST 


n  n  n  n  n  n  n  n  n 


FT 


(.< O  To  b 

b  OHiri>,*I.U»li.Kt‘.iMi.\l-U(  ) / 100. 

1 P  J*  U  I  'j  1  ( 

bl  0  PSTH*J.O 
b 2  MIHil  JUPblk 
UPSTx*kuP.»T 

LOMPUTt  «A1  tK  UP-UKIK!  I  N  TtKPOLAT  ION 

b  DO  7  XO*l*M.LX 

I F  I  o  x  (  T.hui-laIo.mj)  I b3  <  b 3 i b4 
b 3  DPXl 1 »PD) *o.O 
GO  TO  bb 

b4  UPx  (  1  *KU ) *  I  La  I  /•HDI-CxIt'.lLU)  I  /  1C 
bb  1 F l L  A ( 6  t  k  U )  Ibb.bBtb/ 
b6  OPA  l  2  lAU  I  HiU 
(jO  T IJ  7 

b 7  UtNGM*Lx(  s.lLjl-LbKSTZ 
IP lOtNGM) b  8  *  b  o  •  b  8 
b  8  UPX  t  2  .HO)  »CX(6.HDI /DtNUM 
7  CONT  1NUL 

UO  TO  (  1  9  0  *  I  88  )  •  Xl<  A 

lau  v»ki  rti  isoui  .444) 

190  AH t AMX ■  3 •  l41b926»LX(b  .MLx  )  *»2 

at r  nominal  wAptn  Loot  l  t  ng t h  ip 

IP ( i HAD  I  78.78.79 

78  BZ*0. 

GO  TO  7 7 

79  BZ*CX(b.MCxl/FLOAT(lRAU! 

77  KtWINU  IHlst 

WKlTt.l  IRISt IDtNT 


RSXP  Oba 
RSXP  0b9 
RSXP  060 
RSXP  Obi 
RSXP  062 
RSXP  063 
HSXP  064 

ARK A V j  HSXP  06b 

HSXP  066 
RSXP  067 
HSXP  06b 
HSXP  0b9 
RSXP  070 

D ) -Cx  t  3  »XD ) )  HSXP  071 

RSXP  072 
HSXP  073 
HSXP  074 
HSXP  0  7b 
RSXP  076 
HSXP  077 
HSXP  07b 
RSXP  07V 
RSXP  0B0 
HSXP  Obi 
HSXP  0b2 

aAFEK  HAOM  ARt  TO  bt  SUbD I V 1 otu  RSXP  0b3 

HSXP  084 
HSXP  Obb 
RSXP  086 
RSXP  087 
RSXP  Obb 
HSXP  089 
RSXP  090 


WK I T£(  I H I  St  IP A .SSAM. SLOT  MP.TMSO.SO.W.HtlGHT.bZ.KFD.I  HAD* 
lCX(b.MtX)  .2BRST2 
WRI Tt ( IRISt  IIDNIDI I  I  *  I ■ 1.12 ) 

WRITtI 1H ISt)  (DOT IU( 1 ) . I»1 .12  I 
MR  I T  t (  I H I  St  I  NOS  T  K 

WKI  ft!  IKIStXPSlJ)  fPMASSt  Jl  »UIAM(  J)  »  J»  1  .MOST H  ) 

WRITtI I K 1  St  IXDPST 
WRITtI  IKIStINPVA 

WRITt l IRISt ) I  ALT  I Jl .tTAI  Jl  .RmZ I -I . J*1 *NPVA) 

WH  I  Tt  (  INI  St  I  ML  X 

HHITt(|KlStl(CXl3.JI.CX(«.J).LX(l.JI.CX(6.J)*CX(7»JI.J*l .MCX I 

WH I  T 1 1  INI  St INHOUO 

IP l NHOOUl 7ob2»7882*7881 

7881  WRITtI  lKlSt)lZVlJ).VX(,))*.rYlJI  •  J»1  •NHOOO) 

7882  P H0O  = 1 . 306666  7 1 "  1 7  *KF  0 
bZ 2*02/2.0 

120  LUOO3 0 

COMPUTt  ln-LLsUU  AIK  VlSCvSITItS 
00  604b  J- i  •  ML  A 

604b  viscxi J)«1.4b8t-6»LA(  9*J)»*l.b/f llo.44Cx(9ij| ) 

XCX*MLX-1 


HSXP  091 
RSXP  092 
RSXP  093 
RSXP  094 
HSXP  09b 
RSXP  096 
HSXP  097 
RSXP  098 
HSXP  099 
HSXP  100 
RSXP  101 
HSXP  102 
RSXP  103 
RSXP  104 
RSXP  lub 
RSXP  106 
RSXP  107 
RSXP  108 
RSXP  109 
HSXP  110 
RSXP  111 
RSXP  112 
RSXP  113 
RSXP  114 


c 

ENTtK  OUTSIDE  WA)  E  K  LMCJ.  AtlUN  LU.'P,  THIS  LUUP  utF 

1NLS  PARTICLE 

RSXP 

US 

c 

SIZE  CLASStS. 

RSXP 

116 

c 

RSXP 

117 

200 

00  278  MA*1  •  N  D  5  T  K 

RSXP 

118 

KDPS*  2  -KDPS  T 

RSXP 

11? 

c 

RSXP 

120 

c 

RSXP 

121 

c 

ENTER  MiDOLt  WAFER  CALCULAI  ION  LOOP.  lHl8  LOOP  UtFINES  CLOUO 

RSXP 

122 

c 

WAFER  SUBDIVISIONS. 

RSXP 

123 

c 

RSAP 

124 

00  258  Mb* 1 .KBPS 

RSXP 

1 2  S 

c 

RSXP 

126 

c 

COMPUTE  WAFER  TOP  OR  t-OlTOM  U.uJCAlUR.  MO  1 

RSXP 

127 

c 

IF  Mb  IS  000.  MOW  This  SPtCiPlLS  A  >*AF  L  K 

ouT  TuM 

RSXP 

128 

c 

IF  Mb  IS  EVEN.  Mb  I s  1  IH1S  SPtCIFloS  A  wAFLK 

TUP 

RSXP 

12V 

c 

RSXP 

130 

MBT-2*< ( Mb+ 11/2) “Mb*  1 

RSXP 

131 

c 

RSXP 

132 

c 

INITIAL  OPST  VAR  1 AULL  i 

RSXP 

133 

c 

RSXP 

134 

OPST 1 1 . Mb  T I -CXI  1*1 ) 

RSXP 

135 

OPST (3*MbT I-CXI5.MCXI 

RSXP 

136 

GO  TO  (202*201  1  .MUT 

RSXP 

137 

201 

DPST(4*MbT) -OIAMIMAI 

RSXP 

138 

GO  TO  203 

RSXP 

139 

202 

DP ST ( 4  *MBT ! -OUMIMA-U ! 

RSXP 

140 

203 

DPST IS  . MbT I -SSAM*FMASS ( MAI /OPS  1  A 

RSXP 

141 

BM-MB/2 

RSXP 

142 

OPST (2  *MUT )»CX(3*ll+(CXl4*il-L\(3*l) )/X01»BM 

RSXP 

143 

2LST-DPST (2  *MbT I 

RSXP 

144 

KCASE-1 

RSXP 

145 

JBASE-1 

RSXP 

146 

c 

RSXP 

147 

c 

ENTER  INSIDE  WAFER  CACCUCAIIUN  LOUP.  THIS  LOOP  DEFINES  CLOUD 

RSXP 

148 

c 

RISE  H I  SI  UR  Y  TIMES  IN  iHt  LA  ARRAY 

RSXP 

149 

c 

RSXP 

150 

c 

RSXP 

151 

c 

COMMUTE  DPST  TRAVEL 

RSXP 

152 

c 

RSXP 

153 

DO  238  MC'l.KO. 

RSXP 

154 

ZVSB-DPSTi  2.MBT l-CXl J.MC 1 

RSXP 

155 

IFI2VSBI204.210.210 

RSXP 

156 

204 

GO  TO  (206*208 1 tXbASE 

RSXP 

157 

c 

RSXP 

158 

c 

ADJUST  DPSf  RADIUS  AND  AL I IfUUt  FOR  t. PAVING  CLOUD 

RSXP 

159 

c 

RSXP 

160 

206 

KBASE-2 

RSXP 

161 

MD-MC-1 

RSXP 

162 

207 

EXTM-I  2LST-CX  l  3.MDI  t/  <•-*  t'  .MOI-UPfON) 

RSXP 

163 

1207 

DPST (3.MBT l-CX( 5  »MD 1 +|  A (M*C A 1 8  * MD 1 

RSXP 

164 

DPSTI  2.MBT  I-2LST*  IUP-0NI -r.XlM 

RSXP 

165 

c 

RSXP 

166 

c 

IF  THE  WAFER  IS  UN  THE  GROUND*  JUMP  THE  INNER  loop. 

IK  NUT* 

RSXP 

167 

c 

COMPUTE  THE  PUS I I  I  UN  OF  1  HE  -AFER  bELUW  IHt  CLOUD  t  : 

)  L  • 

RSXP 

168 

c 

RSXP 

169 

GO  TO 
1208  DPSTI 


11208  *23  1 1  .JHASE 

2  *MbT  l  =  LH>if  i  2  .MAI  1  +  <CX(6*MUI“DN)*(CX( 2*MD)-Ea  I  "I 


RSXP  170 
RSXP  171 


n  n  n  n  n  n  r\  r*  n  r\  r>  r\  c\  r\  r\  n  r\  ri  nn  n  n  n 


COMPuTt  lit  Lon  AIk  utNji:t  AMU  VISCOSITY 

20  6  UP*CaI6.mlI  <■<  J  6b  *  UP  a  I  2  •  M(.  ) 

CALL  TkPlIOI'jII  .MBT)  .NPvA.ALT  .RHODEN) 

CALL  TRPLlUP.il  I  .  ,MUI  )  .NPVA.ALT.tTA.VlS) 

00  TO  iU 

COMPUtt  I  NS  1  lit  LLOUU  liA  0  ULNUITY  A  MU  VISCOSITY 

210  UP-CXl 6.MC > ♦lVsB*OPa(  1 .ML  I 

FC- I0PST  I  1 »MBl)-LXl 1 rMC  !  ) <  !la(  1  ,MC+i  )-CX(  1  *MC>  ) 

DEN-CX  l  10.MC  I  +  (  C  A  l  iU  .mi.  *1  )-l  \  I  iO.MC  )  i  *FC 
V  l  S- V l SCX  <  MC  ) ♦ l V 1  SC X ( ML ♦  1  I-vIlCX(ML)  )  *  F  C 

COMPUTE  FALL  SPtLUS 

212  VO -DPST ( 4 .MBT ) /V  IS 

Vl-DPST < 4 »MBT  )*,  VU»FRUO 
CORK* V 1 *V0*0tN 
IFICDRR-IaO.OI 10 l . /J1 . /mV 

749  IF (1 SOUT.Lt »U 100  lu  <60 

750  IF  (  CDP.R-4. 5t*  7  I  TbO./Sl.  7b  1 

751  WRITE! ISOUl .758IDP5T  (4.KBT ) .DPSTI  2.MBT) 

GO  TO  760 

701  DN-V 1*141666. 7 ♦CORK*  (-2.336 3t+2+LUK 1* ( 2 . 0 1 3  4-6 . 9 105 E-3*CDKR ) I ) 

GO  TO  765 

760  OLOOA* AL001 0 (CDRK1-20.7 10 

DN«50657.0*V1»CDKH»*  (  ( ULO i,A*ULOi»A-44  3.98 ) »0 . 001 1 2  35 ) 

765  ON-ON* ( 1.0+0, 233/ ( DPST (4 .MBT l*UENi I 
ZNXT-DPsT (  2 . MB T  >  +C A  < 2 • MC ) » ( UP-UN ) 

HAS  ThE  PARTKLl  RtACHLO  THE  GROUND- 
YES  TO  220 
NO  TO  230 

IF  (ZNXT-ZliRSTZ  1220.220. 2  3u 

COMPUTE  OPS T  TIMt  OF  ARRIVAL  ON  FALLOUT  FItLO 

220  EXTM-UBHSTZ-DPST  I  2  .MBT ) ) / ( UP-ON) 

OPST ( 1 .MBT I -D^STl  1 .MOT  I +EXTF 
OPSTI  2.MBTWBRSTZ 
JBASE-2 
MO-MC 

On  TO  (1207,233) .XBASE 
2  30  OPST ( 1 .MBT ) -OPSTI  1 .MBT ) *CX( 2  »MC ) 

2LST-DPST(2.MbTI 
DPST ( 2 .MBT I -2NX ( 

238  CONTINUE 

233  GO  TO  (241.24401 ,MUT 

IF  BOTH  TOP  AND  BOTTOM  HAVE  BEEN  TREATED,  ARE  THE  TOP  AND  BOTTOM 
RADII  The  SAME- 
YES  TO  5443 
NO  TO  2401 


RSXP  172 
RSXP  173 
RSXP  174 
RSXP  175 
RSXP  176 
RSXP  177 
RSXP  178 
RSXP  179 
RSXP  180 
RSXP  181 
RSXP  182 
RSXP  183 
RSXP  184 
RSXP  185 
RSXP  186 
RSXP  187 
RSXP  188 
RSXP  189 
RSXP  190 
RSXP  191 
RSXP  192 
RSXP  193 
RSXP  194 
RSXP  195 
RSXP  196 
RSXP  197 
RSXP  198 
RSXP  199 
RSXP  200 
RSXP  201 
RSXP  202 
RSXP  203 
R5XP  204 
RSXP  205 
RSXP  206 
RSXP  207 
RSXP  208 
RSXP  209 
RSXP  210 
RSXP  211 
RSXP  21 2 
RSXP  213 
RSXP  214 
RSXP  215 
RSXP  216 
RSXP  217 
RSXP  218 
RSXP  219 
RSXP  220 
RSXP  221 
RSXP  222 
RSXP  223 
RSXP  224 
RSXP  225 
RSXP  226 
RSXP  227 
RSXP  228 
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241  IF (DPST  (3.1  )-DPST(  3  -  J  /  1244  0 .24*. 0.2441 

2440  I  FLAG* 1 

GO  TO  (240 *2581* MBT 
240  GO  TO(5442»235)  »xkx 

2  35  WRITE!  1SOUT .777  I  (DPST  (  I  . MbT  )  .  /  ■  1  •  it  )  . MdT  .  1  7 L AG 

2441  IFLAG-2 

GO  TO  (2401.23511 jXKX 

2351  MR  1  TEC  I  GOUT .777  1  (OPST  (  1  .Mb T  I  •  I  • 1 . 8 )  .MET . IF  LAG 
2401  1 F i DPST (2.1 l-2bRST2l25V.25V.i44B 

SPECIFY  FINAL  UFS1  ARRAY  if-  BOTH  TOR  AND  BOTTOM  OF  WAFER  ARE  ON 

THE  GROUNO 

259  IFLAG-l 

DPST<l.MBTl-0.5*(0PST<l.liRDPSTU.2)  I 
OPST ( 2. MBT I •DPSTC2.il 

OPST  (3.MBT  1*0.5*  (DPST  (3.1  I  -.DPS  T  (  3.2)  ) 

DPST (4. MBT I -SORT (DPST (4.1 ) *DPS  T  (  4 . 2  I ) 

DPST ( 5 .MBT ) »DPST (5.1) 

DPST (6 .MBT 1*0. 

DPST ( 7 .MBT I *0. 

DPST (B. MBT I -0. 

GO  TO  5447 

DETERMINE  PARAMETERS  TO  BE  USED  TO  SUBDIVIDE  A  WAFER  WHOSE  TOP 
AND  BOTTOM  HAVE  DIFFERENT  RADII 

2448  AL-DPST(3.)  I/DPSTI3.2) 

R6«  3* 1415927*DPST ( 3.2  I **2 
UDIP-AL 

IF (KDI P-10  I  2442. 2442. 2442 

2443  KDIP-10 

GO  TO  2444 

2442  IF(HDIP-2)2450 .2444.2444 

2450  1FIAL-1. 5)2451. 2452.2452 

2451  HD  IP* 1 

GO  TO  2444 

2452  K.DIP-2 

2444  20" DPST (2.1  I -DPST (2.21 
FX«FLOAT  ( K.DIP  I 
DZ-2D/FK 

ALE-0. 5*ZD/ALOG(AL) 

SPECIFY  PPST  ARRAYS  FOR  THE  WAFER  SUBDIVISIONS 

DO  2445  I-l.HDIP 
F I-FLOAT (  I  I 

A«DPST( 2.2) ♦(FI-1. )*D2 
B«A+D2 

A1«AL**( 2. 0*( B-OPST (2.2) 1/20) 

A2-.AL»*(2.0*(A-DPST(2.2I  I/2D) 

PPST (2.1 )»ALL*(ALOG(0.5*( A14A2) ) ) ♦DPSTI2.2  I 
PPST' i.l I "DPST ( 3.2 )»( AL**( (PPST (2 .1 ) -DPST 12.2) I / ZD  I  ) 

Pf’ST  (  1 .  I  )  “DPST  ( 1  .MBT  ) 

PPST (4.1 ) ■  SORT (DPST (4.1 ) «DPST (4.2  >  ) 

PPST (5. I ) »DPST (5 .MBT ) /FK 
PPST (6.1  I »D2 


KSAP  22V 
RSXP  230 
RSXP  231 
RSXP  232 
RSXP  233 
RSXP  234 
RSXP  235 
RSXP  23b 
RSXP  237 
RSXP  230 
RSXP  23V 
RSXP  240 
RSXP  241 
RSXP  242 
RSXP  243 
RSXP  244 
RSXP  245 
RSXP  246 
RSXP  247 
RSXP  240 
RSXP  24V 
RSXP  260 
RSXP  251 
RSXP  252 
RSXP  253 
RSXP  254 
RSXP  255 
RSXP  256 
RSXP  257 
RSXP  250 
RSXP  259 
RSXP  260 
RSXP  261 
RSXP  262 
RSXP  263 
RSXP  264 
RSXP  265 
RSXP  266 
RSXP  267 
RSXP  260 
RSXP  269 
RSXP  270 
RSXP  271 
RSXP  272 
RSXP  273 
RSXP  274 
RSXP  275 
RSXP  276 
RSXP  277 
RSXP  270 
RSXP  279 
RSXP  260 
RSXP  261 
RSXP  282 
RSXP  283 
RSXP  264 
RSXP  285 
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2445 

5443 

5445 


5444 

5442 


5448 


5826 

5447 


783 

5060 

5010 


5022 


1003 


1004 


PPST<  7.1  )*A  RSXP  286 
PPST18.I I»KO«All»I Ai-A2 t  RSXP  28? 
CONTI, NUt  RSXP  288 
IP-0  RSXP  289 
IP-IP.-1  RSXP  290 

RSXP  291 


SET  JP  T Ht  DPif  An  KAY  PON  A  WAFER  SUBDIVISION  FROM  THE  PPST  ARRAY  RSXP  292 


00  5444  J-l.j 
0PSTlj.M8TI.PPSK J.1PI 
00  TO  <544d .544  7 ) . IFLAo 

SPECIFY  FINAL  L/PST  aKKAY  FOR  A  WAFER 


RSXP  293 
RSXP  294 
RSXP  295 
RSXP  296 
RSXP  297 

WITH  EUUAL  BASE  AND  TOP  RAOIIRSXP  298 


0PSTI6.MUTI-  OPsT 1 2 • 1 ) “OPS T (2.2) 

OPST ( 2 .MBT ) • I OPST (2.1 IfOPST 12.2) 1*0-5 
OPST 1 4 .MB T I -SORT (OPST  (4.1 )*OPST( 4.21  ) 
OPSTI7.MBTI-OPSTI2.2I 

OPST 18.MBT l-OPST  l6»MoT 1 *3  » 141 592  7*OPST I  3  *  1 )  **2 
GO  TO  (5447.582o) .XKX 

WRITE! ISOUT .666) (OPST  1  1 .MBT I . I -1.8) . MBT . I  FLAG 
IF ( IRAQ  15022* 1022.783 


INITIALIZE  FOR  HORIZONTAL  WAFER  SUBDIVISION 

XR-BZ2 

YR-BZ2 

RADIUS- OPST I  3 .MBT  I 
RAD2-RADIUS**2 

IF  I RAO2-2.0*BZ2**2 15022.1004.1004 


SPECIFY  GOPST  ARRAY  FOR  WAFERS  THAT  ARE  NOT  TO  BE  SUBDIVIDED 
HORIZONTALLY 

EOOD-LOOO-1 

GOP  S  T I  6  •  L  ODD l-OPST ( 2 . MB  T ) 

GDPSTI4.LO0D)-DPST(4,MBTI*1.0E-6 
GDPST ( 3. LOUD) -OPST (  1.M8TI 
GDP ST ( 5.L0D0) -OPST ( 5 .MBT I 
GDPST ( l.LODO) -0. ' 

GOPST l2.L0D0)-0* 

GOPST I  7. LOUD) -OPST <3. MBT I 
GiiPST I  8  .LOOD)  -DPST <6. MBT  I 
GOPST ( 9 .LOOD) -DPST ( 7 .MBT I 
GOPSTI 10.L0U0I-DPSTI8.MBT  ) 

GO  TO  5030 

1 F ( ( XR  I  *424  I YR ) **2— RAD2 ) 1 00 1.1001 .1002 

SUBDIVIDE  WAFERS  HORIZONTALLY  AND  SPECIFY  THE  GDPST  ARRAY  DATA 


COUNT  THE  TOTAL  NUMBER  OF  HORIZONTAL  SUBDIVISIONS 
EX-BZ2 


RSXP  299 
RSXP  300 
RSXP  301 
RSXP  302 
RSXP  303 
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RSXP  305 
RSXP  306 
RSXP  307 
RSXP  308 
RSXP  309 
RSXP  310 
RSXP  311 
RSXP  312 
RSXP  313 
RSXP  314 
RSXP  315 
RSXP  316 
RSXP  317 
F.SXP  318 
RSXP  319 
RSXP  320 
RSXP  321 
RSXP  322 
RSXP  323 
RSXP  324 
RSXP  325 
RSXP  326 
RSXP  327 
RSXP  32B 
RSXP  329 
RSXP  330 
RSXP  331 
RSXP  332 
RSXP  333 
RSXP  334 
RSXP  335 
RSXP  336 
RSXP  337 
RSXP  338 
RSXP  339 
RSXP  340 
RSXP  341 
RSXP  342 
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EY-BZ2 

RSXP 

343 

CNT-4.0 

RSXP 

344 

7210  EX«EX*8Z 

RSXP 

345 

IF  1  EX««2*E Y **2-RAD2 1 7201.7201 . 7202 

RSXP 

346 

7201  CNT»CNT*4.0 

RSXP 

347 

GO  TO  7210 

RSXP 

348 

7202  EX-BZ2 

RSXP 

349 

EY-EV+BZ 

RSXP 

350 

IF ( EX**2*EY**2-RAD2 )  7201 . 7201  ♦  7203 

RSXP 

351 

7203  CHA-0P3TI5.MBTI/CNT 

RSXP 

352 

1001  LODD-LOOO+1 

RSXP 

353 

LL-LODD+3 

RSXP 

354 

00  1030  J-LO00.LL 

RSXP 

355 

GOPST 1 9.  J  • "DPST ( 7  #M8T  1 

RSXP 

356 

G0PSTI10.J)«DPST!8.PttT)/CNT 

RSXP 

357 

GDPST ( 7* J ) aBZ2 

RSXP 

358 

GOPST 18. J)>DPST(6.HBT) 

RSXP 

359 

GOPST  !6  »  J ) a0PST ( 2 iMBT ) 

RSXP 

360 

GOPST  !4.J)»0PST!4.HBT)*1.0E-6 

RSXP 

361 

GOPST! 3.J)«DPST!1 .HOT) 

RSXP 

362 

1050  GOPST 1 5. J )*CHA 

RS(P 

363 

GOPST ( 1 »LODD ) *XR 

RC  XP 

364 

GOPST ( 2  *LODO) ■ YR 

RSXP 

365 

L000»L000*1 

RSXP 

366 

GDPST! l.LODO)>XR 

RSXP 

367 

GOPST ( 2*LOOD) "-“R 

RSXP 

368 

LODO-LOOD+1 

RSXP 

369 

GOPST!  1.LOOOI— XR 

RSXP 

370 

GOPST ( 2  »LQOD) »-YR 

RSXP 

371 

LOOO-LOOD+1 

RSXP 

372 

GDPST!  l.LODOI—XR 

RSXP 

373 

GOPSTI2.LODDI-YR 

RSXP 

374 

3030  1FILOOD-  97)1100.1010.1010 

RSXP 

375 

1100  IFIIRAD)2585. 2585.1101 

RSXP 

376 

1101  XR-XR+B2 

RSXP 

377 

GO  TO  1003 

RSXP 

378 

1002  YR-YR+BZ 

RSXP 

379 

XR-BZ2 

RSXP 

380 

IF1YR-RADIUS) 1003.1003.2585 

RSXP 

381 

RSXP 

362 

LOAD  THE  GOPST  ARRAYS  ON  THE  CRH 

OUTPUT 

TAPE 

RSXP 

383 

RSXP 

384 

1010  WRITE! 1R1SEILOOO 

RSXP 

365 

WRITE! I RISE ) 1 GOPST  < 1. J) .GOPST 1 2.0) .GOPST 1 3.J) 

•  GOPST ( A.  J)  .GDPST  (5. JRSXP 

386 

1I.G0PSTI6.JI .GOPST ! 7. J I. GOPST (8.J). GOPST !9. J). GOPST! 10. Jl » J-l .LODORSXP 

387 

2) 

RSXP 

388 

LODO-O 

RSXP 

389 

GO  TO  1100 

RSXP 

390 

2565  GO  TO  !258  .25661 .IFLAG 

RSXP 

391 

2586  IF! IP~KDIP) 5445.258.258 

RSXP 

392 

238  CONTINUE 

RSXP 

393 

276  CONTINUE 

RSXP 

394 

RSXP 

395 

LOAD  FINAL  RESIDUE  OF  GDPST  DATA 

ON  THE 

CRH  OUTPUT  TAPE  RSXP 

396 

RSXP 

397 

1030  WRITE! 1R1SE)L000 

RSXP 

398 

WR ITE ! IRI SE )  i  GDPST < 1 • J  > • GOP ST (  2 .  J )  .GOPST ( 3* J ) .GDPST  1 4 » J ) i&DPST ( 5 . JRSXP  399 
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1 1 *0DPST(6  >J ) .uUPST (7. J) •uUPST I d.JI tuUPST (V ♦ J ) tOJPSf ( 10  •  J I • J»1 f LOODRSXP  400 


2)  RSXP  401 

LODD-O  RSXP  402 

WR I Tt( IR i SE i LOOO  RSXP  403 

END  FILE  IKISe  RSXP  404 

REWIND  IKISE  RSXP  403 

RETURN  RSXP  4 OS 

END  RSXP  407 
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SUBROUT 1NE  TRPL  (  IRPL 

1  AH(j *  NPK,  PAHA.  PAHO,  VKb  )  TKPl 

IRPL 

•  . ******* •*••**•***••**** TRPL 

TRPL 

TKPL  UStS  L l  NEAR  i  N  I LKPGEA I  1  ON  Tu  LUCAIE  PUS l I  1  UN  uF  AKG  *|ThIN  TKPL 
THE  ONE-DIMENSIONAL  AKKAr  PAN  A  AND  LUMPUlES  F  Ok  Tml  CORRESPOND  1  Ng  TKPL 
POSITION  IN  THE  ONE-0IMEN31ONAl  ARRAY  PARB »  VKb.  NPK  IS  ThE  TKPl 

DIMENSION  OF  PAKA  AND  PARB  I «HuSL  ELtMENTS  LOKKCSPuNO  ONE  To  OrD.TKPL 
IF  ARG  IS  OUTSlDt  Thl  Taiiu  .  .  EL  VALUES  OF  PAKA,  /ku  IS  SELECT EU  TKPL 
FROM  THE  CORRESPONDING  LNu  u>  PARb.  TRPL 

PARA  IS  OKOEREU  FROM  LLASI  I PAKA  11)1  lo  jRlAIESI  IPAKA  IN PR ) i  TKPL 

TKPL 

. . . . . . . 

TRPL 

DIMENSION  TKPl 

1  PARA  (lit  PAKU  (  1)  TRPL 

TRPL 

********************** ************* •  ***•***••»•••  ,'*•*••••*******»*****  TRPL 
•••A*************************** ***************************************TRPL 

TRPL 

020  IF  (ARG  -  PARA  111)  022,  022,  040  TRPL 

022  MB  «  1  TRPL 

024  VRB  -  PARB  (MB)  TRPL 

024  RETURN  TRPL 

040  DO  054  MA  -2.  NPK  TRPL 

IF  (ARG  -  PARA  IMA)  I  U48,  044  ,  054  TRPL 

044  MB  -  MA  TRPL 

GO  TO  024  T (PL 

048  VRB  -  (ARG  -  PAKA  (MA  -  1)1  •  (PARb  (MA)  -  PARB  IMA  -  II)  /  TKPL 

1  (PARA  IMA)  -  PARA  I MA  -  1)1  ♦  PARb  (MA  -  1)  TRPL 

GO  TO  026  TRPL 

054  CONTINUE  TRPL 

MB  «  NPK  TRPL 

C,0  TO  024  TRPL 

END  TRPL 
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SAMPLE  PROBLEM  AND  PRINTOUT 

On  pp.  144  through  153  is  presented  a  printout  of  a  cloud  rise  cal 
culation  suitable  for  debugging  usage.  All  quantities  are  labeled  and 
have  been  discussed  fully  in  the  preceding  sections.  The  atmosphere 
table  printout  is  turned  on  but  the  debug  printouts  are  off. 
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APPENDIX  A.  2 


SOME  CLOUD  RISE  SIMULATION  RESULTS 

To  assess  the  quality  of  the  cloud  rise  simulation  results  and  to  deter¬ 
mine  yield  dependence  of  critical  model  parameters,  we  have  performed 
cloud  rise  simulations  for  56  shots  for  which  adequate  observed  data  are 
available.  For  this  work  we  obtained  observed  atmosphere  data  (pressure, 
temperature,  and  relative  humidity  as  a  function  of  altitude)  for  a  large 
number  of  surface  and  air  burst  nuclear  detonations.  These  data  were 
used  along  with  known  explosion  energy  yields  and  heights  of  burst.  The 

simulated  stabilized  cloud  top,  base,  and  center  altitudes  then  were  com- 

A  2  1 

pared  with  observed  data  taken  from  Volume  V  of  DASA-12  51  *  *  .  The 
results  are  shown  in  Figures  A.  2.  1,  A.  2.  2,  and  A.  2.  3.  Results  are  tabu¬ 
lated  in  Table  A.  2.  1.  The  figures  and  the  table  show  data  for  54  shots; 
data  for  two  shots  are  classified  and  are  omitted.  Comparison  of  observed 
with  calculated  data  for  these  shots  was  used  to  determine  values  for  the 
model  parameters  F,  k^,  and  k^  (see  pp.  17,  18  ).  Considerable  sensi¬ 
tivity  was  found  to  parameters  F  and  k^  (and  to  atmospheric  stability  as 
well). 

With  regard  to  accuracy  of  experimental  data,  we  can  expect  that  tne 
pressure -temperature-altitude  data  are  adequate.  The  stabilized  cloud 
altitude  data,  however,  are  virtually  always  suspect.  Indeed,  we  have  no 
way  to  determine  the  possible  range  of  error  for  individual  data.  Particu¬ 
larly  suspect  are  stabilized  cloud  base  altitude  data,  since  we  know,  from 
personal  observations  of  cinefilms  of  the  late  clouds  from  many  shots,  that 
a  cap  case  altitude  is  usually  difficult  to  define  with  precision.  We  did  not 
include  comparisons  of  stabilized  cloud  radii  because  there  are  relatively 
few  reliable  observations  of  cloud  radii  and,  in  any  case,  a  stabilized 
cloud  radius  is  virtually  impossible  to  define  since  nuclear  clouds  never 
really  cease  their  horizontal  expansion. 

jfC 

Mr.  Robert  Tompkins  of  the  Nuclear  Effects  Laboratory  and  Mr.  Philip 
Allen  and  Mr.  Jack  Pales  of  the  ESSA  Research  Station,  Las  Vegas,  Nevada 
went  to  great  trouble  to  gather  data  and  information  for  us.  This  work 
would  not  have  been  possible  without  their  help. 
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On  the  whole,  the  comparisons  are  satisfactory,  though  there  does 
seem  to  be  a  trend  to  underestimate  cloud  top  height  through  most  of 
the  midyield  range.  There  are  many  cases  of  excellent  agreement.  It 
is  perhaps  significant  that  this  is  particularly  true  for  the  cloud  top  data 
for  which  we  should  have  the  most  accurate  observations. 

In  Figure  A.  2.4  we  have  the  complete  simulation  history  in  terms  of 

cloud  top  height,  base  height,  and  radius,  for  a  15  MT  surface  shot  in  a 

tropical  atmosphere.  The  simulated  data  are  reproduced  in  the  Sample 

Problem  and  Printout  section  above.  These  results  can  be  compared 

A  2  2 

with  observed  data  for  shot  CASTLE  B  ravo  '  *  .  The  agreement  is  quite 
gratifying. 
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Figure  A.  2.  1.  Simulated  and  Observed  Stabilized  Cloud  Top  Heights  Versus  Yield 


Figure  A.  2.  2.  Simulated  and  Observed  Stabilized  Cloud  Base  Heights  Versus  Yield 
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Figure  A.  2.  Simulated  and  Observed  Cloud  Center  Heights  Versus  Yield 
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TABLE  A. 2.1 


HJ  -33 


HJ  -25 


HJ  - 18 


HJ  - 17 


HJ  -9 


HJ  -3 


HJ  - 19 


HJ  -22 


P-22 


OBSERVED  AND  COMPUTED  CLOUD  TOP, 
BASE  AND  CENTER  HEIGHTS 
OBSERVED 
COMPUTED 


Yield 

(VT) 


7. 8  x  10' 


2.  1  x  10' 


2. 4  x  10' 


3.  6  x  10 


7.85  x  10" 


8.  0  x  10' 


8.  4  x  10' 


9.2  x  10' 


1.  15  x  10' 


1.4  x  10' 


1.97  x  10 


2. 0  x  10' 


Top 

Height  (m) 

1050.  0 

1104. 1 

1350. 2 

1431. 3 


1759.9 

1969.4 

1939.7 

2489.8 

2266.7 

1790.4 


1924. 5 

1900.  2 

1722. 4 
1355.  6 

2870.  6 
1659. 2 

1652. 9 
1437. 1 

3771. 5 
2620.  0 

3739. C 

2834. 5 


2833.  1 
2353.8 


Base 

Height  (m) 

592.  8 
974.  8 

283.4 
1240.  6 


1739. 7 

568.  1 
2161.  6 

1047.  5 
1507. 5 


857.7 

1602. 7 

960.  4 
1124. 2 

j  2108.6 

j  1386.8 
4 - 

I 

738.  5 
1181.9 

2948. 6 

2198.7 

■4 - 

i 

,  2825.4 

I  2360.  1 


1949.  1 
1945.  5 


Center 
Height  (m) 

821.4 

1039.4 

816.8 

1335.  0 


1854. 6 

1253.9 
2325.  7 

1657. 1 

1648.9 


1391. 1 
1751.  5 


1341.4 
1239.9 

2489. 6 
1523. 0 

1195.7 

1309. 5 

3360.  1 
2409. 3 

3282. 6 
2597.  3 


2391.  J 
!  2149.7 
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TABLE  A.  2.  1  (cont.  ) 


OBSERVED  AND  COMPUTED  CLOUD  TOP, 
BASE  AND  CENTER  HEIGHTS 
OBSERVED 
COMPUTED 


Shot 

Yield 

(kT) 

T  op 

Height  (m) 

UK-5 

2.  1  x  10"1 

2642. 6 
1944. 3 

SB-2 

5.  0  x  10_1 

3444. 2 

1989. 4 

P-24 

1.  22  x  10° 

4591. 5 
4564. 8 

HJ  -34 

1.25  x  10° 

3753. 3 
3400.7 

HJ  -13 

1.  5  x  10° 

3448. 5 
3827.2 

P-10 

1.  73  x  10° 

6004. 5 
3933.4 

HJ  -8 

2.  0  x  10° 

3904.  4 
4095.  0 

HJ -29 

2.  5  x  10° 

3600.  9 

3727. 4 

P-19 

4.7  x  10° 

8249.  1 

4843. 4 

HJ -28 

4.  9  x  10° 

6529. 7 

4207. 8 

HJ-21 

6. 2  x  10^ 

6206. 9 

5080.  2 

P-30 

8.  0  x  10° 

10755.  1 

5582. 2 

Base 

Height  (m) 


1088.  1 
15?0.  3 


1611. 0 


2762. 7 
3633. 9 


2229. 3 
2666.6 


1924. 5 

2996. 6 


3016.4 


1314. 9 
3177. 8 


1314. 9 
2847. 8 


4896. 3 
3648. 7 


2414. 9 
3136. 6 


4378.  1 
3783. 9 


6487. 9 
4130. 5 


Center 
Height  (m) 


1865.  3 
1767.  3 


1800.  2 


3677. 1 
4099.4 


2991.  3 

3033. 6 


2686.  5 

3411.9 


3474. 9 


2609.7 

3636.4 


2457. 9 
3287. 6 


6572. 7 
424b.  0 


4472',.  3 
3672. 2 


5292. 5 
4432. 1 
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TABLE  A.  2.  1  (cont.  ) 

OBSERVED  AND  COMPUTED  CLOUD  TOP, 
BASE  AND  CENTER  HEIGHTS 
OBSERVED 
COMPUTED 


Shot 

Yield 

(kT) 

Top 

Height  (m) 

Base 

Height  (m) 

Center 

Height  (m) 

P-12 

9.  7  x  10° 

9230.8 
7370.  3 

4658. 8 
5483. 6 

6944. 8 

6426.9 

m 

1. 03  x  10l 

9226. 2 
5534. 7 

6178. 2 
4039. 8 

7702. 2 

4787. 3 

p-ii 

1.  03  x  10l 

7068. 6 
7000. 1 

4630. 2 
5178. 9 

5849.4 

6089. 5 

UK-4 

1. 05  x  101 

10043.  1 
7476.  7 

6995.  1 
5521. 7 

8519. 1 

6499. 2 

P  - 17 

1.  07  x  101 

9835.8 
6719. 6 

5263. 8 
4948. 2 

7549.8 

5833.9 

P-25 

1.  14  x  101 

10811.2 

6969.5 

6848, 8 
5130. 5 

8830. 0 

6050. 0 

P-29 

1.  14  x  101 

8011.  6 
6099.6 

4354. 0 
4451. 1 

6182.8 

5275.4 

P-2  1 

1.  15  x  101 

9829.8 
6619.  1 

3733.7 
4856.  1 

6781.8 

5737. 6 

P-2 

1.  15  x  101 

8615  1 
9684. 8 

5567.  1 
7233.  1 

7091. 1 
8458.9 

P-26 

1.  18  x  1 

8020.  5 
7272. 0 

4058.  1 
5350.  3 

6039. 3 

6311.  1 

UK-10 

1. 5  x  101 

9875. 5 
5719. 3 

5547. 3 
4100.  1 

7711.4 

4909. 7 

P-16 

1.  65  x  101 

8264. 3 
7832.7 

3387. 5 
5691. 0 

5825.9 

6761.  8 
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TABLE  A.  2.  1  (cont.  ) 


OBSERVED  AND  COMPUTED  CLOUD  TOP, 
BASE  AND  CENTER  HEIGHTS 
OBSERVED 
COMPUTED 


She. 

Yield 

(kT) 

P-9 

1. 7  x  101 

UK-1 

1.  71  x  101 

P-28 

1.  85  x  101 

P-14 

1.9  x  101 

UK-2 

2.4  x  101 

UK-6 

2.  5  x  101 

UK-8 

2.  6  x  101 

UK-9 

3.  23  x  1C1 

P-6 

3.  66  x  101 

RW-1 

3.  95  x  101 

P-20 

4.4  x  101 

UK-7 

4.  5  x  101 

Top 

Height  (m) 


8239. 0 
7606. 6 


11177. C 
7865. 8 


7624. 2 
7713. 6 


9544. 5 
7802. 9 


11244. 0 
7810. 3 


11125.  1 
8230.  7 


11640.  3 
9847. 6 


11955.4 
9135. 0 


11582. 0 
7410.2 


10003.  8 
10370.4 


12027. 0 
10647. 6 


Base 

Height  (m) 


4581.4 

5508.4 


7214.  6 

5711. 3 


3966.6 

5565.9 


6496. 5 

5621.7 


6824. 4 

5566. 5 


5550.4 

4797.2 


7101.  8 

5846. 5 


7068. 3 
6996.9 


6164.  2 

6413. 5 


6096. 0 

5180.  3 


Center 
Height  (m) 


6410.2 

6557. 5 


9195.  8 

6788. 5 


5795.4 

6639.8 


8020.  5 

6712. 3 


9034.2 

6688.4 


7531. 6 

5803. 3 


9113. 5 

7038. 6 


9354. 3 

8422.2 


9059. 8 

7774. 3 


8839. 0 

6295. 3 


7248. 5 

8809. 5 

8680.  7 
7458. 0 

10353. 9 

9052. 8 

63- 


ARCON 


1'ADLE  A.2.1(cont.) 

OBSERVED  AND  COMPUTED  CLOUD  TOP, 
BASE  AND  CENTER  HEIGHTS 
OBSERVED 
COMPUTED 


Shot 

Yield 

(kT) 

Top 

Height  (m) 

Base 

Height  (m) 

Center 
Height  (m) 

J 

UK-11 

6.  0  x  101 

11381. 5 

11384. 6 

9034.  5 
7852.4 

10208.  0 

9618.5 

’t 

) 

P-8 

7. 1  x  101 

12883. 8 
11013. 5 

8921.4 
7502.  0 

10902.  6 

9257.8 

1 

16154.4 

11552.9 

1 

C  -3 

1.  5  x  10 

7627.  1 

9590.  0 

1 

RW  -3 

3.  38  x  103 

24079. 1 
25195. 3 

14935.  1  ! 

13623.3 

19507. 1 

19409. 3 

1 

4.  6  x  103 

30175. 1 
26613.4 

1 

RW  - 16 

14017.4 

20315.4 

1 

C-l 

i . . ~r- 

1.  5  x  104 

36576. 0 
34821.9 

18897. 6 
16492. 9 

27736.8 

25657.4 

I 

t 

I 


Key:  HJ  is  Hardtack  II 

P  is  Plumbob 
UK  is  Upshot  Knothole 
SB  is  Sunbeam 
RW  is  Redwing 
C  is  Castle 

The  shot  numbers  are  those  given  in  DASA-1251,  Volume  II. 
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PART  3 


CLOUD  RISE -TRANSPORT  INTERFACE  MODULE 
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INTRODUCTION 

The  function  of  this  module  of  the  DELFIC  system  is  to  provide  liaison 
between  the  cloud  rise  and  atmospheric  transport  portions  of  the  system. 

It  is  available  to  perform  whatever  data  modification  and/or  processing  is 
required  to  accomplish  this.  In  its  present  form  the  system  demands  rela¬ 
tively  little  of  this  module.  The  module  is  used  to  accept  some  additional 
data  and  to  adjust  the  fallout  parcel  positions  to  account  for  wind  transport 
during  the  time  period  of  the  cloud  rise. 

In  this  r<  -ised  version  of  the  CRTIM,  we  have  deleted  the  "option  (b)" 
capability  that  was  included  in  the  previous  version  of  subroutine  LINK4. 
That  is,  the  module  no  longer  can  accommodate  a  particle  input  that  varies 
spatially  in  two  dimensions  in  a  continuous  fashion.  Also,  only  one  binary 
particle  output,  the  wind-drift  corrected  output,  now  is  prepared.  Sub¬ 
routine  WNDSFT  has  been  revised  and  reprogrammed  in  many  parts.  This 
has  been  done  to  increase  the  accuracy  of  its  results.  Functionally,  it  is 
intended  to  serve  the  same  purpose  as  before. 
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METHOD  OF  CALCULATION 


Using  the  binary  output  of  the  Cloud  Rise  Module,  which  is  contained 
on  logical  storage  unit  IRISE,  subroutine  WNDSFT  corrects  the  x  and  y 
coordinates  of  each  fallout  parcel  for  wind-drift  during  the  time  period 
of  the  cloud  rise. 

To  perform  the  wind -drift  corrections  we  require  a  table  of  wind 
vectors  as  a  function  of  altitude  over  ground  zero,  the  altitude  profile 
of  atmospheric  viscosity  and  density  (to  be  used  for  particle  settling 
rate  calculations),  and  tables  of  cloud  bottom  altitude,  top  altitude, 
bottom  rise  velocity,  top  rise  velocity,  and  the  corresponding  times. 

All  of  these  data  are  contained  in  the  input  from  the  Cloud  Rise  Module. 
With  this  information  we  can  separate  the  problem  into  two  parts: 

(1)  the  calculation  of  the  lateral  displacement  of  those  parcels  that  leave 
the  cap  to  form  the  stem,  and  (2)  the  lateral  displacement  of  those  parcels 
that  remain  in  the  cap.  For  the  latter  part  we  simply  compute  a  table 
of  cloud  center  displacements  as  a  function  of  time.  This  table  will 
then  supply  wind-drift  displacements  for  all  parcels  (i.  e,  ,  cloud 
subdivisions)  during  their  time  of  residence  in  the  cloud  cap.  For 
stem  parcels  the  calculations  are  more  complex.  In  the  calculations 
described  here,  the  vertical  thickness  of  the  fallout  parcels  is  ignored; 
we  consider  their  altitudes  to  be  given  by  the  point  positions  of  their 
centers  of  mass.  Let  us  consider  first  the  calculations  of  displacements 
for  the  cloud  cap. 

We  compute  the  lateral  diift  of  the  cap  by  allowing  the  winds  at  each 
stratum  of  atmosphere,  as  defined  by  the  wind  data  table,  to  act  on  the 
cap  during  the  time  the  cap  is  in  iKii  f  ratum  according  to 

Ax.  =  v  At.,  Ay.  =  v  At.  , 

J  xj  J  7J  Yj  J 
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where  Ax.  and  Ay.  are  the  components  of  the  cap  center  displacement  in 


the  jth  stratum  of  the  atmosphere,  vXj  and  Vyj  are  the  components  of  the 
wind  velocity  in  the  jth  stratum,  and  AL  is  the  time  the  cloud  spends  in 
the  jth  stratum.  The  total  displacement  of  the  cap  D  is 


2  =Z  (^A  +  Ayj*y)  ’  (3>1) 

where  u  and  u  are  unit  vectors  in  the  x  and  y  directions.  This  displace- 
~x  ~y  '  r 

meat  is  applied  to  all  parcels  whose  final  z  coordinates  are  equal  to,  or 
greater  than,  the  final  cloud  bottom  altitude. 

To  explain  the  wind-drift  calculations  for  parcels  that  have  fallen 
through  the  cloud  bottom  during  the  cloud  rise,  we  refer  to  Figure  3.  1. 

Let  the  time  and  altitude  coordinates  of  the  parcel  (i.  e.  ,  cloud  subdivision), 
as  they  are  input  to  the  CRT1M,  be  t^  and  z^.  In  the  figure,  the  cloud 
bottom  time  history  is  given  by  the  solid  curve  and  the  time  and  altitude 
at  which  the  parcel  passed  through  the  cloud  bottom  are  t  and  z  . 

WNDSFT  computes  the  parcel  settling  motion  backward  in  time  (i.  e.  , 
upward  through  the  a  mosphere  below  the  cloud),  while  over  the  same 
time  increments  it  b.eps  backward  through  the  cloud  rise  history  table 
to  determine  the  cloud  bottom  altitudes.  Li  this  way,  the  parcel 
and  cloud  bottom  altitudes  finally  converge,  and  thus  the  time, 
t  ,  is  determined.  During  this  back  calculation,  time  steps 
are  chosen  to  be  the  lesser  of  the  time  intervals  required,  on 
the  one  hand,  for  the  parcel  to  traverse  a  wind  hodograph  stratum,  or  on 
the  other,  for  the  cloud  bottom  to  advance  downward  one  cloud  history  table 
time  increment.  For  each  time  step,  wind-drift  increments  are  added  to 
the  overall  displacement  components  for  the  parcel.  For  the  time  increment 
between  the  cloud  rise  calculation  initial  time,  t.,  and  t  ,  displacement 
increments  arc-  determined  from  the  cloud  cap  trajectory  table  by  linear 
interpolation  and  these  are  added  to  the  below  cloud  displacements. 
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TIME 

Figure  3.  1  Time -Altitude  Relationship  of  the 
Cloud  Cap  Bottom  and  a  Fallout 
Parcel  Trajectory 

The  parcel  time  coordinates,  t^,  are  not  all  equal,  but  if  a  particle 
is  still  air  borne  when  input  to  the  CRTIM,  t^  will  equal  the  Cloud  Rise 
Module  calculation  termination  time  (i.  e.  ,  the  effective  cloud  stabilization 
time).  For  parcels  on  the  ground,  however,  t^  is  the  time  of  impact. 

With  this  time  information  available,  subroutine  WNDSFT  can  compute 
wind-drift  adjustments  for  grounded  particles  as  well  as  for  air-borne 
particles. 

During  the  Cloud  Rise  Module  calculations,  the  origin  of  space 
coordinates  is  at  mean  sea  level  in  the  vertical  and  at  ground  zero  in  the 
horizontal.  Time  is  relative  to  detonation  time.  In  the  CRTIM,  time 
and  horizontal  space  coordinates  of  all  fallout  parcels  can  be  translated 
to  refer  ic  user  specified  origins. 
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PROGRAM  DESCRIPTION 

The  Cloud  Rise  -  Transport  Interface  Module  consists  of  two  major 
subroutines:  an  executive  program  LINK4,  and  WNDSFT.  Subroutine 
LINK4  is  a  very  simple  program  that  does  no  more  than:  (1)  read  the 
header  data  from  the  Cloud  Rise  Module  output  unit,  IRISE;  (2)  read 
from  the  operating  system  input  unit  the  CRTIM  run  identification, 
an  array  of  control  integers,  and,  the  x,  y,  and  t  translation  components  , 
XGZ,  YGZ,  TGZ,  to  be  added  to  the  corresponding  coordinates  of  each 
fallout  parcel;  (3)  write  the  header  data  on  the  CRTIM  binary  output  unit, 
JPARIN;  and  (4)  call  subroutine  WNDSFT. 

Subroutine  WNDSFT  adjusts  the  horizontal  coordinates  of  all  of  the 
fallout  parcels  as  described  in  the  Method  of  Calculation  section.  The 
wind  data  read  by  LINK1  are  used.  After  the  horizontal  coordinates  are 
adjusted  for  wind  drift, and  these  coordinates  and  the  time  are  translated 
by  amounts  XGZ,  YGZ,  and  TGZ,  the  parcel  data  are  copied  onto  the 
CRTIM  binary  output  tape,  JPARIN,  and  also  printed,  if  printing  has  been 
requested.  Flow  chart  FC-3.  1  gives  an  organizational  view  of  logical 
flow  through  subroutine  WNDSFT. 

Logical  output  unit  JPARIN  is  written  in  the  binary  mode  and  is 
given  the  identifier  name  JPARIN.  Its  ccntents  are  described  in  detail 
in  the  User  Information  section.  In  addition  to  subroutines  LINK4  and 
WNDSFT,  the  CRTIM  also  uses  subroutines  ERROR  and  FALRAT,  the 
general  utility  error  program  and  the  particle  settling  rate  program. 
These  subroutines  are  described  in  DASA-1800-VII  and  DASA-1800-IV 
respectively. 
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FC-3.  1.  Organizational  Chart 
of  Subroutine  WNDSFT 
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USER  INFORMATION 


INPUT 

Inputs  to  the  Cloud  Rise -Transport  Interface  Module  (CRTIM)  are  of 
three  categories: 

1.  Inputs  from  COMMON  core  storage  via  COMMON/SET  1/. 

2.  Inputs  from  a  binary  mode  storage  unit,  logical  designa¬ 
tion  IRISE,  that  contains  outputs  of  a  cloud  rise  calculation. 

3.  Inputs  from  cards  via  the  operating  system  input  unit. 
COMMON/SET  1 /Input 

COMMON/SET  1/  and  its  contents  have  been  described  in  detail  in 
Part  2  (see  Table  2.2).  There  are  no  changes  made  in  the  COMMON/SETl/ 
contents  in  the  CRTIM. 

binary  Tape  Inputs 

The  binary  input  to  the  CRTIM  is  fully  described  in  Table  2.  5  of  Part 
2  and  does  not  require  further  amplification  here. 

Card  Inputs 

Card  inputs  to  the  CRTIM  are  described  in  detail  in  Table  3.  1.  Cards 
2  and  3,  however,  require  additional  explanation. 

In  its  present  form  only  two  of  the  18  elements  of  the  control  parameter 
array  1C (J)  is  in  use.  These  are  IC(3)  and  IC(4).  A  value  of  IC(3)  i  0  causes 
the  particle  contents  of  tapes  IRISE  and  JPARIN  to  be  printed.  A  value  of 
1C(3)  =  0  causes  the  printing  of  these  tapes  to  be  omitted  (see  the  discussion 
in  the  Output  section).  A  values  of  IC(4)  i  0  produces  an  output  of  working 
values  of  parameters  in  subroutine  WNDSFT.  These  outputs  are  placed 
in  the  program  after  statement  numbers  278,  300,  and  320  and  occur  after 
each  passage  through  these  statements.  The  data  produced  are  useful  for 
trouble-shooting  in  subroutine  WNDSFT. 

Up  to  the  time  of  the  CRTIM  calculations  all  x  and  y  coordinates  are 
relative  to  ground  zero  and  time  is  relative  to  detonation  time.  By  means 
of  card  3,  the  x,  y,  and  t  coordinates  of  all  particles  can  be  shifted  (via 
addition  of  XGZ,  YGZ,  and  TGZ)  to  a  different  origin. 
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TABLE  3.  1 

CRTIM  INPUT  DATA  FROM  THE  OPERATING  SYSTEM  INPUT  UNIT 


Card 

Number 

Content 

Variable  Names 
and  Formats 

1 

CRTIM  identification  card. 

PSEID(J),  J=l,  12 
(12A6) 

2 

Control  indices.  All  IC(J)  =  0 

IC(J),  J=l,  18 

except  IC(3).  If  1C(3)  i  0,  the 
complete  particle  output  (both 
unskewed  and  skewed  clouds)  will 
appear  on  the  s/stem  output  unit. 

If  IC(3)  =  0,  only  unit  JPARIN 
will  be  written.  As  the  CRTIM 
program  output  is  voluminous, 
we  suggest  setting  IC(3)  =  0  to 
save  computation  time.  If  IC(4) 
i  0  a  special  trouble-shooting 
output  is  printed  by  subroutine 
WNDSFT  (see  text). 

(1814) 

3 

x  and  y  coordinates  of  ground 

XGZ,  YGZ,  TGZ 

zero  (m),  and  detonation  time 
(sec). 

(3E12.  5) 
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OUTPUT 


Printed  output  from  the  CRTIM  it  essentially  completely  labeled 
and  needs  little  discuusion  here.  An  example  of  this  output  is  provided 
in  the  Sample  Problem  and  Print  Out  section.  All  of  the  essential 
input  data  are  printed  including  the  particle  size  class  data,  atmosphere 
tables,  and  the  cloud  trajectory  table  calculated  in  subroutine  WNDSFT. 
In  addition,  if  control  parameter  IC(3)  is  not  zero,  the  complete  particle 
contents  of  both  tapes  IRISE  and  JPARIN  are  printed.  Since  this  latter 
output  is  voluminous,  we  suggest  that  it  be  requested  only  for  debugging 
purposes.  To  eliminate  this  output,  assign  IC(3)  =  0.  The  trouble¬ 
shooting  output  produced  by  subroutine  WNDSFT  when  IC(4)  i  0  is  use¬ 
ful  only  to  the  programmer-analyst  who  is  intimately  familiar  with  the 
code  and  its  functions.  It  should  never  be  requested  during  routine  use 
of  the  code. 

Contents  of  the  binary  CRTIM  output  unit  JPARIN  is  described  in 
Table  3.  2. 
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TABLE  3.2 


CRTIM  BINARY  OUTPUT  (UNIT  JPARIN) 


r-— - ■  — 1 

Record 

Number 

Content 

Variable  Names 

1 

Tape  identification  word  (JPARIN) 

DENTI 

2 

Fission  yield  (kT),  mass  of  the 

FW,  SSAM, 

cloud  soil  burden  (kg),  soil 

SLDTMP, 

solidification  temperature  (°K), 

TMSD,  SD,  TW, 

time  at  which  the  cloud  reached 

HEIGHT,  XGZ, 

the  soil  solidification  temperature 

YGZ,  TGZ,  BZ, 

(sec),  geometric  standard  deviation 

ROPART, 

of  the  lognormal  particle-diameter 

IRAD,  RADMAX, 

volume -frequency  distribution, 
total  yield  (kT),  height  of  burst 
above  msl(m),  x  coordinate  (E-W) 
of  GZ(m),  y  coordinate  (N-S)  of 
GZ(m),  detonation  time  (sec),  base 
edge  length  of  the  basic  cloud  sub¬ 
division  (m).  fallout  particle  density 
(kg/m3),  the  horizontal  cloud  sub¬ 
division  parameter  IRAD,  maximum 
cloud  radius  (m),  height  of  ground 
zero  above  msl(m). 

ZBRSTZ 

3 

CRTIM  run  identification 

PSEID(I),  1=  1,  12 

j  4 

Cloud  Rise  Module  run  identification 

CRID(I),  I*  1,  12 

5 

Initial  Conditions  Module  run  ident¬ 
ification 

DETID(I),  Is  1,  12 

1 

6 

Number  of  particle  size  classes 

NDSTR 

7 

Particle  size  class  tables:  central 

PS(I),  FMASS(I), 

particle  diameter  (4m),  volume 

DIAM(I),  I  =  1, 

(mass)  fraction,  particle  diameter 
at  the  upper  boundary  of  the  size 
class  (4m). 

NDSTR 

8 

Number  of  (altitude)  entries  in  the 
atmosphere  description  tables 

NAT  (  =  256) 

9 

Atmosphere  tables:  viscosity 

A  TEMP'D,  RHO(l), 

(kg/(m-sec)),  density  (kg/m3) 

1  =  1,  :  i  A  : 
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CRTIM  BINARY  OUTPUT  (UNIT  JPARIN) 


Record 

Number 

Content 

Variable  Names 

10 

Parcel  description  block  count 

NP 

11 

Block  of  parcel  (cloud  subdivision) 
descriptions:  x,  y,  and  t  coordinates 
(m  and  sec),  size  class  central 
diameter(m), mass  of  fallout  in  the 
parcel  (kg),  altitude  of  parcel 
center  of  mass  above  msl(m), 
parcel  radius  (m),  vertical  thick¬ 
ness  of  parcel  (m),  altitude  of 
parcel  base  above  msl  (m),  parcel 
volume  (m^). 

XPAR(I),  YPAR(I), 
TP(I),  PSIZ(I), 
PMAS(I),  ZPAR(I), 
RWAF(I),  DWAF(I), 
ZLOW(I),  VWAF(I), 
I  =  1,  NP 

12 

Block  count 

13 

• 

• 

Block  of  parcel  descriptions 

• 

14 

Zero  block  count 

NP  =  0 
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FORTRAN  LISTINGS 


The  FORTRAN  listings  are  included  on  pp.  180  through  192.  Note 
that  the  glossary  of  mnemonics  for  both  subroutines  LINK4  and  WNDSFT 
is  at  the  beginning  of  subroutine  LINK4  (p.  180). 


LIST  OF  FORTRAN  LISTINGS 


LINK4 

WNDSFT 

FALRAT 


Page 

180 

185 

192 
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F I  SSI UN  YILLO  (ATI 

HtlOHf  OF  BURS!  (Mt It  RSI  ABOVt  GROUND  2EH0 
CONTROL  I  MO  lets*  J* 1  •  i  S 

ICIJI-0  Ou  NOT  PRINT  LISTS  OF  PART ICLt  OUTPUTS 


unx4ooi 
LINX4Q02 
LINS4002 
LINX4004 
LlNXAQOS 
CtLLL INX40Q6 
U INX40U7 
LINX40QB 
LINK4009 
L 1  NX  40 10 
L INX40  1 1 
LINX40U 
T  MANL 1  NX  4  013 
LINX4014 
L I  NX  40 1 5 
L I NX40 16 
LINX4Q17 
L INX4018 
L 1NX4019 
L 1NX4020 
LINX4021 
L I NK4022 
L I  NX  402  3 
L1NX4024 


ic(ji«i  print  cumpllte  lists  of  particle  outputsforlinx4025 


both  IMt  AXIALLY  SYMMEIRIC  AND  WIND 
0 1  S I OR  I tO  ClOUOS 

LOOICAl  NUMBtH  AND  1 DENT IF  1 C AT  ION  NAME  OF  THE  CLOUO 
RISE  MODULE  OUTPUT  lAPt 

NUMBtR  OF  SIATtMLNl  NEAR  RHtKE  AN  ERROR  RAS  DISCOVERED 
NOMBtR  OF  SYS  I tM  INPUT  TAPE 
NUMBER  OF  STSItM  OUTPUT  TAPt 

UOOlCAL  NUMUtP  Jl  TAPE  UN  RMICH  IS  RRJTTtN  PARTICLE 
POSITIONS  AUJUSltU  FOR  TRANSPORT  BY  RlNOS  DURING  CLOUO 


RISE 
NHOOU-I 
NPOS I T ♦ i 
NUMBtR  UF 
NAT  «2  S6 
NUMBtR  UF 
NUMBtR  OF 


AL  I  I  1  .  -t 


STHATA  IN  THt  ATMOSPHERE  TABLtS* 


RIND  HOOOCjRAPH 

the  clouo  Rist  history 


(XSMI  OF  rAFER 


EuLMtN'S  IN  "HE 
I  I  ME  till  Kits  IN 
CX  I  St t  DASA-1800-l 1 1  I 
IOIAl  I  AR I | CUU Aft  MASS 
BCD  WAMt  jF  PROURAM 

CENIRAL  PARriett  OlAMEItR  IMICRONSI  UF  IMt  J  TH 
PAH  I  |  CL  t  SUt  CLASS 

RUN  lOtNl  IFICATION  FOR  THE  CLOUO  RISE  -  TRANSPORT 
I N 1 1 Rl AC  t  MODULE*  J»l*12 

MIOPJI  ll  (MtltRSI  OF  RAFtR  PARIlCLt  SUt  CLASS 
MAXIMUM  Ct  JUO  RADIUS  IMtTERS) 

AfMUSPllLHIC  OtNSITY  AT  11-11*200  MtTtKS  ABOVt  MSL  IN 
KlLOi.RAXj  PtR  CUBIC  METER 

SOIL  (PAR'ICLLI  OtNSITY  IN  XlLOURAMS  PFR  CUBIC  Mt TER 
UPWARD  COM! ONI  NT  OF  VELOCITY  OF  A  ST  tM  PARTICLE 
HAD  1  US  IM,  ItKSI  OF  RAFtR  AT  CtNTtH  OF  MASS 
PARIh.lt  illt  OLUMtTKlO  STANDARD  OtVIATION 
(0  IMtN  .  I  JNl  i  SS  I 


L  I NX4026 
L1NX4027 
LINX4028 
L1NX4029 
LINK  030 
LINX4031 
LINX4032 
L 1 NX4033 
LINX4034 
L 1NX4Q35 
L I  NX  40  36 
L i NX40  37 
L INX4038 
L INX4039 
L I NX4Q40 
TABLESL 1NX404I 
LINX4042 
LINX4043 
L INX4044 
L 1NX404S 
LINX4046 
UNK4047 
L1NX4048 
LINX4049 
LINX4050 
L INX4051 
L INX4052 
LINX4053 
LINX4054 
L I  NX  40  5  b 
L INX40S6 
LINX4057 


|  SO 


r<  n  n  r>r>  n  nnnnnnnririnnnrinnnnnnnnnnnoninnononnnnnnnnnnnnnn 


SLDTMP 
SSAM 
TCI  l  I 


VTIII 
VXI  I  I 
Will 
VWAFIII 
XCIII 

XG2 

XPARII I 


YGZ 

YPARII) 


ZBRST2 

zcm 


2LOWI 1  I 
ZPARI I  I 


SOL1DIF ICAIION  I  tMPERA  TUKE  (DtG.  XI  OF  SOIL 
MASS  (Kb)  OF  THE  CLOUD  SOIL  BURDEN 
TIMEIRELAT  IVt  TO  OL T ONAT  1  ON  OFIThE  I-TH  CLOUD  RISE 
TABLE  ENTRY 

PARTICLE  TIMt  COORD  I NATE  DURING  A  MIND  DRIFT 
ADJUSTMENT  CALCULATION  INCREMENT 
TIME  OF  DETONATION 

TIME  I  Sf.C  I  RELATIVE  TO  SHOT  TIMt  AT  MHlCH  T  Ht  CLOUD 
REACHED  THE  SOIL  SOLIDIFICATION  TtMPLRATURt 
TIME  OF  DtF 1 N I T 1  ON  (SEC)  OF  THt  I  TH  CLOUD  CELL 
TOTAL  YitLD  1X11 

CLOUD  BOTTOM  VEL.  OF  THt  l-TH  CLOUD  RISE  TABLE  ENTRY 
VELOCITY  ASSOCIATED  Ml TH  CLOUD  AT  ZCIll  AT  TC1I).  l-i 
NPOS1T 

CLOUD  TOP  VELOLlTt  OF  THE  l-TH  CLOUD  RISE  TABLE  ENTRY 
X  MIND  COMPONENT  OF  THE  1 TH  MIND  STRATUM 

Y  M1N0  COMPONENT  OF  THE  1 TH  MIND  STRATUM 
MAFER  VOLUME  (CUBIC  METERS  I 

X  COORDINATE  OF  THE  CLOUD  CAP  CENTER  FOR  THE  ITH  CLOUD 
RISE  TABLE  ENTRY  AFTER  MIND  SHIFT  ADJUSTMENT 
X  COORDINATE  OF  GROUND  ZERO  (METERS! 

X  COORDINATE  OF  CEEL  I  MR! TEN  ON  THE  OUTPUT  TAPES 
(METERSI 

Y  COORDINATE  OF  THE  CLOUD  CAP  CtNTLH  FOR  THE  ITH  CLOUD 
RISE  TABLE  ENTRY  AFTER  MIND  SHIFT  ADJUSTMENT 

Y  COOHDINA'E  OF  GROUND  ZERO  (METERSI 

Y  COORDINATE  OF  CELL  1  MR! TEN  ON  THE  OUTPUT  TAPES 
(METERSI 

CLOUO  BOTTOM  ALT.  OF  THE  l-TH  CLOUD  RISE  T ABLE  ENTRY 
(METERS  ABOVE  MSL I 

ELEVATION  OF  GRUUND  ZERUf  METERS  ABOVE  MSLI 

CLOUO  CENTER  ALT.  UF  THE  l-TH  CLOUD  RISE  TABLE  ENTRY 

(METERS  ABOVE  MSLI 

PARTICLE  ALTITUOE  AT  THE  BEGINNING  OF  A  MIND  DRIFT 
ADJUSTMENT  CALCULATION  INCREMENT 
ALTITUDE  OF  MAFEH  BOTTOM  (METERSI 
2  COOROINAU  .1  CELL  I  MR  1  TEN  ON  THt  OUlPUT  TAPES 
(METERS  ABOVI  USLI 

CLOUO  TUP  ALII 'GUI.  OF  THE  l-TH  CLOUD  RISE  TABLE  ENTRY 
IMETERS  ABOVE  MSLI 

TEMPORARY  STORAGE  OF  THE  Z  COORDINATE  OF  THt  1ST  SMALL 
CELL  WITHIN  EACH  LARGE  CELL 


COMMON  /SET!/ 

KAY  .DET  101 12 1 

2FMAS5 1 200 1 .IDISTR 
3NDSTR  .PS ( 200 1 

4TMP2  . T2M 

SZSCL  iNHODO 


•  0 1  AMI  201  I  .DMEAN  .DNS  .EXPO 

. I  EXEC  •  1RISE  • 1 S I N  .ISOUT 

•  SO  .SSAM  « TMt  « T MP 1 

•  US01L  i VPH  •  W  .HEIGHT 

•ZVI200I  .VXI200I  » V Y l X  OU  I 


THIS  PROGRAM  PREPARES  INPUT  FOR  THE  TRANSPORT  MODULE.  IT 
CALLS  SUBROUTINE  WNUSFT  WHICH  APPLIES  MINDS  FOR  THE  PtKIOO  OF 
CLOUD  RISE  AND  PUTS  THE  RESULTING  DATA  IN  TRANSPUH T ABLt  FORM  ONTO 
TAPE  JPARIN. 


LINK40SB 
LINK40S9 
L1NK406Q 
LINK4Q61 
L 1NK4062 
LINX4063 
L1NX4064 
L INX4065 
L INX4066 
L 1NX4067 
LINX4O60 
LINX4069 
•LINX4070 
L1NX4071 
LINX4072 
LINX4073 
LINX4074 
LINX4075 
L1NX4076 
LINX4077 
L1NK4078 
L1NK4079 
LINX4080 
LINK4081 
L1NX4082 
L1NX4083 
LINK4084 
LlNX40(i5 
L lNX408b 
L1NX4087 
LINX40B8 
L1NX4089 
LINK4090 
L INX4091 
L 1NK4092 
L 1NX4U93 
LINX4094 
L1NX4095 
L1NX4096 
LINX4097 
L1NX4090 
l  INX4099 
L1NX4100 
•L1NX41U1 
•L1NK4102 
L1NX4103 
. LINX41 04 
•LINX4105 
.LINX4106 
•LINX4107 
LINX4108 
•LINX4109 
L1NX41X0 
L  INX41 11 
L1NX41 12 
LINX4113 
LINX4114 


1  HI 


r»r»r»r»  o  nn  n  on  n 


LINX4U5 

• . . . * . 

LINK.  4117 

OIMtNblON  i.uMI  AP  l  1  5  I  ,  t*R  1  U  (  12  )  .  P it  lot  1  2  )  .  A I  tMP  (2  60  I  ,RH01260  )  »2B  (  VO )  L  l  NK.41  lb 

1  •  T  L  (  V  u  I  •  VI)  I  Vul  •  1 C  1  it)  I  ,  2  (  I  VU  I  >  V  T  I  90 1  •  ALT  ( 260 )  LI  NK.41 19 

L1NK.4120 

. . . . . . . 

L1NK.4122 

111  FORMAT  1  1.i1///51a19H»  *•••*»••  »//12Al01HT  “It  D  t  P  A  R  TLINK4123 
1MLNI  OF  0  E  F  t  N  b  E  FALLOUT  PHEOICTI  0LINK4124 

2  N  b  Y  b  T  t  M,//51X,19f'»  »*••••»•  »////LlA,  3  VH  CLOUD  N I SEL 1  NK.41 25 

3  -  TRANSPORT  iNltRFACL  MOOULt///  LlNK',126 

4  S5A«liHPREPANtD  B Y/ 5 3X , 1 7HAHC0N  CORPOLINK4127 

SKA  T  1  UN  /  5  3  A  »  ibHulAAtPltLO,  MASS.////)  LINK4128 

1  FORMAT!//  LINK4129 

1 16X.2HFW. 12A.LHSSAM* 1 QA ,bHSL0 TMP » 8 A . 4HTMSD » 10X . 5HS 1 GMA /  LINK4130 

210X,5<EH.O.IXI//  L 1 NK4 131 

316A,2HTW, 1 2  A i JHMOB ,11A«2HU2<1 2 A .6HRGPAR  T /  LINA4132 

410X«4(E13«b»lX|///  LINK4133 

510A,5HPSEID/10X,l2Aft//  LINA4134 

6  10X  <  4HCH 1 0/  10Xil2Ab//  L1NK.413S 

7 10X « 5HDt  T lD/10X«12A6///  **  L I NK4 1 it 

810X26HCONTROL  ARRAY  l C  (  J I » J- 1 • 1 8/ 10X  .  18  1 5///  LINX4137 

9 1UX22HOE TONA T 1  ON  COORD  1 NA TtS « 1  OX, 3HXG2 , 1 3X , 3HY02 . 1 JX • 3HT 02 /  LINK4138 

134X.3I  til. 6. 3X1/// I  LINK4139 

2  FOMMATI 10A.1HMP5.  9 A , 2HV 1 » 1 1 A , 1 HM . 1 OX , 3HC0L »  9X.4HC0LS,  8X.3HROW,  LINK414Q 

1  9X • 4HK0WS •  7X«  4HC0L X ,  9X  ,  1HB/  LJNK4141 

2  8X,15«4X<B(Eii,4«lXI  I  LINK4142 

3052  FORMAT </9A,*N0STK  -  • , 1 5 / / 1 7 A , • PART  1 CLE  S UE • » 1 bX. • MASS  FRACT ION  * « L 1NK4143 

118X.  'SUE  CLASS' /I 7a, 1 (MICKUMtTEHS)  ' ,40X, 'UPPER  BOUND l MICKOME TERS )  LINX4144 
2  •  I  LINX4145 

3087  FORMAT (//.  1A, 'XOPST  •  ',151  LINX4146 

3053  FORMAT!!!  ibA.Eli.6) I  LINK4147 

3054  FORMAT  I 1M1 , 9X,bHNAT  ■  1 5/ /2 1 A , SHALT  1 TUDE , 20X , 9HV I SCOS I T Y ,2  3X , 3HRHCL  >NK4i 48 

1)  L1NX4149 

3055  FORMAT  I  3(  IbX.ElJ.bM  LINX4150 

3056  FORMA  T  '  1H 1 ,  9/. ,  7HNPOS  IT  •  I  5  /  /  10X  ,  5HTC  (  J )  ,  1 3X  •  SH2B  l  J )  •  1 3X  •  5H2T  (J  )  ,  LINK4151 

1  1 3X , SHVB ( J  I  , 1 3X • SHV T ( J I  I  LINK4152 

3057  FORMAT (515X.E13. 6) t  LINK4153 

1009  FOR  iAT < 1 A.Ab.Eli.b .1  5  I  L1NX4154 

1011  FOHMA  T ( 1 2  Ab I  LINK4155 

1014  FORMAT ( 1B14  I  LINK4156 

1015  FORMAT! 3E12. 51  LINK4157 

1016  FORMAT ( 1 5, 4E13,b/4tl3,b)  HNK4158 

1018  FORMAT  I  LINK4159 

1  15a,  2HXP,13X,  2H2P.12X.  SHIPS//  LINK4160 

2  I 7X,2 ( 3A.E12.5 I , 1 10)1  LINK4161 

1019  FORMAT  I !X,2tl3,bl  LINX4162 

1020  FORMAT  I //29H  mRUNU  TAPE  Ht  EL  ON  DRIVE  1  2 , 2  X  ,  4 1HPLEASE  MOJNT  COKLINr.4143 

1RECT  TAPE  AND  PRESS  START)  LINK.4164 

3016  FOHMA  T (lX,l5,8Ell«b)  LINK.4165 

LINK4166 

•  . . 

••!•••*• *•••••»••«•• . . 

L  INK4169 

INTEGER  DENT  I .CHtCK .DENT  LINK.4170 

DATA  DENT  1 ,  PRUGRM/6HJPAK 1 N, bHL I NX4  /  L1NX4171 


182 


DATA  CHECK  /6M  IRISE/ 

C  INITIALIZE 

JPAR IN*NUM ! AH l 4  I 
C 

C  PRINT  (A  T  nU  I  HEADER 

C 

WRITE!  I  SOUT  iVUll 
C 

C  TEST  To  Stt  IT  A  W  i  NO  HOLOGRAPH  HAS  bEEN  PROVIDED— 

C  IF  NOT »  TERMINATE  THE  CALCULATION 

C 

IF  I NHODO) 100*1 0U«20U 
100  IRR0R--10U 

CALL  ERROR ( PkUGRM > 1  KHUN • 1  SOOT  I 

RETURN 

C 

C  READ  ALL  DATA  FROM  CLOUD  RISE  TAPE 

200  REWIND  IR1SE 
997  READ  (IH1SEIDENT 
C 

C  CHECK  TO  SEE  THAT  THE  CORRECT  CLOUD  RISE  TAPE  I (RISE)  HAS  BlEN 

C  MOUNTED 

IT  <C!iECK.Ed.DENT  )  00  TO  99V 
99S  PRINT  1020 » I R I SE 

WRITE  I1SOUT.1020I1R1SE 
REWIND  IRISE 
PAUSE 
00  TO  997 

999  READ! I Rl SE 1 FW .SSAM .SLDTMP . TMSD .SO •  T W .HE  I GHT . B2 . HOPAHT .IRADt 
1RADMAX.2BHSU 
FROG  ■  1 * 306666  TE-l 7  »ROPAHT 
READ  I IRISEI (CR1DI Jl .J-1.121 
READ  (IRISEIIDETIDI  Jl. J-1.121 
READ  I IRISE I NOSTK 

READ) IRISEI IPS! 11 iFMASSI l  I  . lu«M(  l  I .  1*1 .NDSTH) 

READI IRISEI KOPST 
READ  IIRISEINAT 

READ  ( IRISEI I  ALT ( 1  I .A  TEMPI l I .HHOI I  I » 1 • 1  .NAT  I 
READ  (IRISEI NPOS I T 

READI IRISE) UBI I  I • ZT (  I  I .TCI  I  I .VBI  I I • VT (  I  I .1-1. NPOS IT  I 
READI IRISE I NHODO 

READI IRI.T.I I Z V  I Jl .VXI J) .VYI Jl • J»l. NHODO i 


C  CHANGE  PAR T  ICLP  SUE  FROM  METERS  TO  MICROMETERS 
C 

DO  BOO  1-liNDSTR 
800  PSI I  I* PS  I  1  I  *  1 • 0E6 
C 

C  READ  ALL  DAI  A  THOM  THE  SYSTEM  INPUT  TAPE 
2000  READ  I ISINilOli I (PSEIDI J) .J»l .12) 

READ  I ISIN.1014I I  I C I J  I  •  J" 1 1 18  I 
READ  I ISIN.1015) XG2.YG2.TG2 
C 

C  WRITE  A  HARD  COPY  OF  ALL  INPUTS 

2008  WRITE  USUUT.il  Fw  .SSAM • SCO  TMP .  TMSD*  SD  *  T  W .HE  I GHT  *B2 .NOPART » 

1 (PSEIDI Jl •J»1*12I«ICH|D<U).J"1»12)*IDET1DIJI.J*1»12)»IIC(J).J»1* 


L1NK4172 
L INK A 1 73 
LINK4174 

l Ink a i 7s 

LINK417* 

L INK A 1 77 

L1NK41 78 

L1NKA1 79 

L1NKA180 

l Ink a i 8 i 

LINKA182 

L1NKA183 

LINKA18A 

L1NKA18S 

LINKA186 

L 1 NKA 18  7 

L1NK4188 

LINKA189 

L I NK  A 1 90 

L 1 NKA 1 91 

LINK4192 

L I NKA 1 93 

LJNK4194 

L  I  NK  A 1 95 

L INK A 1  VS 

L  I  NK  4197 

LINKA19B 

LINK4199 

L I  Nil  42  00 

LINK  42  01 

LINKA202 

L 1  NK 42  03 

L I  NK 42  04 

L 1 NK 42  OS 

LINK4208 

LINK4207 

L I NK 42  08 

LINK4209 

LINK4210 

LINK42U 

L 1  NK 42 12 

LINK4213 

LINK4214 

LINK421S 

LINK4216 

LINK4217 

LINK4218 

LINK4219 

L 1 NK  42  2  0 

LINK4221 

L1NK4222 

L 1NK4223 

L1NK4224 

LINK422B 

L  1NK4226 

L1NK4227 

L1NK4228 


rv  r>  n  r»  n  rr 


i 


2  lb)  I  A  o  L (Vgiilut 
200  7  MW  I  1 1 1  l  SOU T  •  30  b*.  I  Nils T  W 

NKIU.II  :.0Ul  •  Job  J  I l PS  1 J  >  »  E  MA  SSI  J  1  •  U 1  AM  1  J  I  *  J  *  1  iNUSfK ) 

MW  I  It  I  i  i.uU  I  •  JOB  !  ItuPbl 
MW  1ft  (  ISUUl  .  JUb*.  I  N  A  f 

MW  1  ft  I  1  SOU  T  •  10b  3  II  AL  f  1  J  I  «  Af  LMPI  J)  iHMUUI  I  J*  1  *NAf  I 
MW  1  ft  l  ISOUt i JO b6 I MWOj I f 

MW  I  ft  1  1  sou  I  .  10 -J  n  l  ft.  I  J  I  uttl  J  I  .21  I  Jl  tVUI  Jl  >Vf  1  Jl  .  J»  1  .NPOSlT  ) 
2002  RtWlNU  JP  AW  1 N 

MW  I  ft  I  jPAWlNI UtNf  1 

MW  1  Hi  JPAnlNI  E w.SbAM.  iLU  I  MW  .  I  MSO  .  SO  i  !  W  •  Mt  I  OH  l  .  XCj2  »  Y02  •  f  l>2  •  »2  • 
1  WOW  AW  f  .  IWAJ.WAOMA.\t2dWSt2 
MW  I 1 1  (  J  P  A  W  1  N  I  IWbtiUI  J) • J  *  1 • 1 2  I 
MWlItl JPAWINI  ICKIU  I J ) • J* 1 •  12  I 
MR  1  f  t  I  JW  AW  1  N I  l  Ot  f  1  0  1  J  I  .  Jai  1  .  1  2  I 
WRlTt ( JPAWlNINUblW 

MW  1  Tt  I  JPAWINI  l PS( Jl .E PASS l J I >01  AM! J) . J«l.NOSTW) 

MRlftl JPAKlNINAf 

WW1 It  I JPAWINI  ( At  I ( J )  . AftMPI J  >  .WHO! Jl  . J«1 .NAf I 


CALL  SUBROUTINE  WNUSM  MMltN  MILL  SHIFT  THt  CLUUO  IN  ACCOKDANLt 
MlfH  I Ht  PNtV A 1 L 1  NO  M  1  NO  rtUUOoWAPH  ANO  CREATt  fHt  fAPt  TO  Bt  USED 
AS  INPUf  10  iHt  I H  AilSPOW  f  MOUULfc 

2100  CALL  MNOSFTUPAKlN.AftMP.KHONK  *2d .Vb .NP0S l T  •  A  j2  *  Yo2  .  Tt»2  •  1 C  iFROO  • 
1CN 1 D  •  2  f •  V  T  «2BWSt2  I 
WC TOWN 
END 


LINK4229 
LINK42 JO 
LlNK.4231 
LINK4232 
LINK4233 
LINK4234 
L 1 NK42  3b 
L INK42  3b 
LINK,  4237 
LINK4230 
L1NK4239 
L1NK4240 
L1NK4241 
L1NK4242 
L1NK4243 
L1NK4244 
L1NK424S 
LINK42-S 
LINK4247 
L1NK424B 
LINK4249 
L 1NK42  bO 
L INK42  bl 
L INK42  b2 
L 1 NIL42  53 
LINK42S4 
L  1NK.42  bb 
LINK42  b6 
L 1NK42  b7 


^  r 


bUttKOU  T  1  i  L  wlaUbF  I  i  OK An 1 N a  A  [  lMHi  nMu  a  lLaAt2aVt)ai,KublIaAuA*YuLaT0AalLBWNbFTuUi 


lFKOO1aLKlOa4.laVT1ALjn.1TAI  wNbFTuoA 

C  AKLON  KLV  i  b 1  Ji*  A  b  Aouu_>  I  iv/u  wNbFTOuj 

C  wNSF  T  OUA 

C  a»»«aaaaaaa«aaaa.  . . iaaaaataaaaaaaaa.aa.aaaaaaaaaaa*aaaa#aaa*i*,N;)f  |Ui)i 

C  wNbFTUJb 

C  iMlb  FNUurtMl  KL»uj  A  IAKl  l  lni.iL  I  uF  un  T  A  whIlii  ULbLNiUL  An  wNbFIUu7 

C  AAlALLY  bYMMLiMIC  jIAoI.IaLl  llUOk  -F  r Aid  UwLl  WNbFTOub 

0  AOU  IhAiajL«ll-j  f  ML  Mwn  1  t.v>  a  I  A._  .JunJl  iAUd  uF  lAlm  KAkuLl  wNbFlouV 

C  10  ALLOUN I  F  wK  A  1  *l>  ^  dM  .vni  inL  l._  OUu  h  1  bL  II  ML  1  , I L  N  V AL  a  wNbFTOlO 

C  At  jUl  I  1  a  n  1  I  I  L  a  u.do  i  ’U  i  jhAaI  a  IN  I  n  AiaAFOK  I  Abut  F  OnMa  wNbFTOli 
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On  pp.  194  through  S.U.i  is  p  rcsrnlt'd  a  printout  of  a  CHTIM  calculation 
suitable  for  debugging  usagi  .  I- or  this  printout  the  complete  parrel  data 
output  was  requested  (1C(  1  I).  Only  tin  b<  1  inning  of  this  latter  printout 

is  displayed  here.  A  b)oel<  t  parcel  data  la1  1  n  dneetly  Irom  the  input 
storage  unit,  I  RISE,  that  lms  not  been  cone  let!  foi  wind  drift,  is  printer! 
first.  Next  the  semi  blot  k  of  rlata  correctet!  I01  wind-drift  is  printed. 
Then,  the  next  block  of  urn  or rected  data,  etc. 
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